Составьте программу, которая выводит на экран квадраты n первых натуральных чисел.
По-моему через while do или for to do

Var
n,i,kv: integer;
begin
writeln (ââåäè êîëè÷åñòâî ÷èñåë);
read (n);
for i:=1 to n do
begin
kv:=sqr(i);
writeln (êâàäðàò ÷èñëà ,i, ðàâåí,kv);
end;
end.