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

Question

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

Answer 1

Const m : array[false..true] of String[3] = (' NO','YES');
Var n : Integer;
Begin
  Readln(n);
  Writeln(m[n=sqr(trunc(sqrt(n)))]);
end.