Ответ:

готово

Объяснение:

var i,n:integer;

begin

write('n=');readln(n);

i:=1;

while i<=n do begin

write(sqr(i), ', ');

i:=i+1;

end;

end.