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

program zz1;

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

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

begin

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

read (n);

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

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

then writeln (' Является ') / / выводим один ответ

else writeln (' Не является '); / / выводим другой ответ

end.