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

var i,c:integer;beginfor 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