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