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

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.