Question

Помогите решить задачу по икт нужно вот это переделать так чтобы были квадратные числа помогите пж
Var i:integer;
begin
For i:=1 to 10 do
begin
writeln (i);
end;
end.