Нужна прога на паскале, вводишь число (трехзначное) если оно делится на свои цифры то выводим его на экран.

var
n: integer;

begin
write('n? ');
readln(n);
if (n mod (n div 100) = 0) and (n mod (n div 10 mod 10) = 0) and (n mod (n mod 10) = 0) then
writeln(n);
end.