Вводится натуральное число. Определить, является ли оно полным квадратом.Pascal

var  n,i,o: integer; begin  read(n);  while i<=n do Begin    if sqr(i) = n then Begin write('Да, число ',n,' является квадратом чилса ',i); o:=1; end;    i:=i+1;  End;  if o<>1 then write('Это число не полный квадрат'); end.

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 begin   var n:=ReadInteger('n=');   var k:=Trunc(sqrt(n));   if sqr(k)=n then Writeln('Это полный квадрат числа ',k)   else Writeln('Это неполный квадрат') end. Тестовые запуски: n= 202293729 Это полный квадрат числа 14223 n= 202293728 Это неполный квадрат n= 202293730 Это неполный квадрат