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 o1 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
Это неполный квадрат