СРОЧНО!!!
Число Цукамерна - натуральное число, которое делится на произведение своих цифр, например 175 делится на 1*7*5=35. Составить программу, которая выводит на экран все трёхзначные числа Цукамерна.
Пожалуйста помогите!!!

var k,a,b,c,l:integer;beginreadln(k);a:=k div 100;b:=k div 10 mod 10;c:=c mod 10;l:=a*b*c;if (k mod l=0) then writeln(k);end.