Составьте программу, которая выводит на экран квадраты 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.