​


Даны два числа - сторона и площадь квадрата. Определить, существует ли квадрат с такой стороной и площадью.
Входные данные: Выходные данные:
Во входном потоке заданы два натуральных числа. Значение всех исходных величин не превышают 30000.
В выходной поток вывести 'YES' или 'NO'.
Пример входного файла (input.txt):
3 9
Пример выходного файла (output.txt):
YES
записать в паскальном языке))) срочно

вместо if a = sqr

var a, sqr : integer;f1, f2 : text;beginassign(f1, 'input.txt'); reset(f1);assign(f2, 'output.txt'); rewrite(f2);read(f1, a, sqr);if a = sqr then    write(f2, 'YES')else     write(f2, 'NO');close(f1); close(f2);end.