(oui)²=2хoouui, числа не начинаються с нуля. выяснил, что i = 2, дальше не могу

Объяснение:

(152)²=2*11552

Если что, решил перебором)

var

 o, u, i:integer;

begin

 for o:=1 to 9 do

   for u:=0 to 9 do

     for i:=0 to 9 do

       if ((o*100+u*10+i)*(o*100+u*10+i)= (2*(o*10000+o*1000+u*100+u*10+i)))

         then writeln(o, u, i);

 readln;

end.