Написать Программу на паскале. Дано произведение цифр числа равное 40. Найти эти четырехзначные числа.

var i: integer;begin  for i := 1000 to 9999 do    if (i div 1000) * (i div 100 mod 10) * (i div 10 mod 10) * (i mod 10) = 40       then writeln(i)end.