​ Даны два числа - сторона и площадь квадрата. Определить, существует ли квадрат с такой...

Question

​


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

Answer 1

Var a, sqr : integer;
f1, f2 : text;
begin
assign(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.

Comments

7 строка

---

вместо if a = sqr

---

надо if sqr(a) = sqr

---

сорри