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

Program zadacha;var i,n,x:integer;beginwriteln (vvedite n);readln(n);for i:=1 to n do beginx:=sqr(i);writeln(x);end;end.