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

//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var (a,b):=ReadInteger2;
if (a*a=b) or (b*b=a) then write(1) else write(0);
end.

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