Работа в PascalABC.NET. задача:
В интервале 1-100 вывести такие пары чисел А и B, для которых верно равенство А^3 = В^2

var

i, j: integer;

begin

for i:= 1 to 99 do

for j:= i +1 to 100 do

if i*i*i = j*j then writeln(i,' ',j);

end.