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

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.