Question

помогите пожалуйста​

Answer 1

Ответ:

var

 n: integer;

begin

 for n := 1 to 57 do

   Writeln(Sqr(n));

 Readln;

end.