Составьте программу которая выводит на экран квадраты 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.