Question

Составьте программу которая выводит на экран квадраты n первых натуральных чисел

Answer 1

var i.n:integer;
begin
readln(n);
for i:=1 to n do 
writeln(i*i);
end.

Answer 2

var i,n:integer;
begin
readln(n);
for i:=1 to n do
begin
writeln(i*i);
end;
end.