Напишите на Паскале программу. Вводятся 2 целых числа. Если одно из них является квадратом другого, то вывести 1, иначе вывести 0.

var
  a,b: integer;
begin
  writeln('Введите два числа');
  readln(a);
  readln(b);
  if (a*a=b) or (b*b=a) then
     writeln('Вывод 1') else writeln('Вывод 0');
  readln;
end.

{Тест}
Введите два числа
25
5

Вывод 1