Среди всех трёхзначных чисел (отрицательных и положительных) найти и выписать на экран те, у которых произведение крайних цифр совпадает с кубом средней цифры.

Var i,c:integer;
begin
for i:=100 to 999 do
 begin
 c:=i div 10 mod 10;
 if (i div 100)*(i mod 10)=c*c*c then writeln(-i,' ',i);
 end;
end.

Результат:
-100 100
-111 111
-128 128
-200 200
-224 224
-300 300
-339 339
-400 400
-422 422
-500 500
-600 600
-700 700
-800 800
-821 821
-848 848
-900 900
-933 933