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

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