Дано число n. a) напечатать те натуральные числа, квадрат которых не превышает n. (программа Паскаль)

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

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