Question

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

Answer 1

program z1;var x,i:integer;beginreadln(i);for x:=1 to i do writeln (x*x);end.