uses
crt;
procedure Find;
var
i: Integer;
n1, n2: Integer;
begin
for i := 10 to 99 do
begin
n1 := i div 10;
n2 := i mod 10;
if (n1 + n2) * (n1 + n2) * (n1 + n2) = i * i then
begin
writeln(i, ' - подходит, решение найдено...');
exit;
end
else
writeln(i, ' - не подходит ', (n1 + n2) * (n1 + n2) * (n1 + n2), ' не равно ', i*i);
end;
end;
begin
clrscr;
writeln('Выполняется поиск...');
Find;
end.