готово
Объяснение:
var i,n:integer;
begin
write('n=');readln(n);
i:=1;
while i<=n do begin
write(sqr(i), ', ');
i:=i+1;
end;
end.
