Дано число n.
a) напечатать те естественные числа, квадрат которых

a) program z1;
uses crt;
var i, n: integer;
begin
read (n);
i:=1;
while sqr(i) lt; n do
nbsp;nbsp;begin writeln (i); nbsp;i:=i+1; nbsp;nbsp;nbsp;end;
end.

b) nbsp;program z1;
uses crt;
var i,n:integer;
begin
read (n);
i:=1;
while sqr(i)lt;n do nbsp;nbsp;nbsp;i:=i+1;
nbsp;nbsp;writeln(i);
end.