Пожалуйста сделайте а то я не как не могу разобраться - Pascal ABC

var
   i,k,n,m :integer;
begin
for i:= 100 to 999 do
begin
     n:= i;
     k:= 0;
     repeat
        m:= n mod 10;
        if m <> 0 then
           if i mod m = 0 then k:= k + 1;
        n:= n div 10;
     until n = 0;
     if k = 3 then writeln(i);
end;
end.