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

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.