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

program zz1;

var  i:real; // задаем переменную не целого типа

n: integer;// задаем переменную целого типа

begin

write( введите данное число n ); // вводим естественное число с клавиатуры

read(n);

i:=sqrt(n); // извлекаем квадратный корень из данного числа

if frac(i) = 0 // проверяем, если в результате дробная часть одинакова нулю, то

then writeln( YES ) // выводим один ответ

else writeln( NO ); // выводим иной ответ

end.