Program z5_95; uses crt; var i,j:integer; BEGIN clrscr; for i:=12 downto 1 do for j:=i downto 1 do if sqr(i)*i+sqr(j)*j=1729 then writeln(i, '' ,j); readln; END.