Составьте программу, которая выводит на экран квадраты n первых натуральных чисел. Желательно без sqr
Program z1;var x,i:integer;beginreadln(i);for x:=1 to i do writeln (x*x);end.