Найти все трехзначные числа, которые делятся на каждую из цифр в их записи!

function F(N: integer): boolean;
var
  temp: integer;
begin
  temp := N;
  while temp <> 0 do
  begin
    if (temp mod 10 = 0) or (N mod (temp mod 10) <> 0) then
    begin
      F := false;
      exit
    end;
    temp := temp div 10
  end;
  F := true
end;
var
  i: integer;
begin
  for i := 100 to 999 do
    if F(i) then
      Write(i,' ');
  ReadLn
end.

function F(N: integer): boolean;
var
  temp: integer;
  begin
    temp := N;
      while temp <> 0 do
        begin
            if (temp mod 10 = 0) or (N mod (temp mod 10) <> 0) then
                begin
                      F := false;
                            exit
                                end;
                                    temp := temp div 10
                                      end;
                                        F := true
                                        end;
                                        var
                                          d,i: longint;
                                          begin
                                          writeln('‚ўҐ¤ЁвҐ зЁб«®');
                                          readln(d);
                                            for i := 100 to d do
                                                if F(i) then
                                                      Write(i,' ');
                                                        ReadLn
                                                        end.

repeat
write('Введите трехзначноe число');
readln(n);
until(n>99)and(n<1000);