Напишите на Паскале программу. Вводятся 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.{Тест}Введите два числа255Вывод 1

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