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

Var 
a:real;
Begin 
write('Введите число '); 
Readln(a); 
if sqrt(a) = round(sqrt(a)) then write('YES') else write('NO');
End.