Помогите решить задачу по икт нужно вот это переделать так чтобы были квадратные числа...

Question

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

Answer 1

Var i:integer;
begin
For i:=1 to 10 do
begin
writeln (sqr(i));
end;
end.

Comments

sqr возводит число в квадрат