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

program inter13;
var s:string;
    i,n,c,pr:integer;
    k,kol,j:byte;
BEGIN
     writeln('Введите N');
     readln(n);
     kol:=0;
 
     for i:=1 to n do
         begin
              Str (i, S);
              k:=0;
              for j:=1 to length(s) do
                  begin
                  val(s[j],c,pr);
                  if (i mod c=0) then k:=k+1;
                  end;
              if k=length(s) then kol:=kol+1;
         end;
     writeln('Количество чисел ',kol);
 
END.

program inter13;
var i,n,x,z:integer;
    kol:byte;
    f:boolean;
BEGIN
     writeln('Ââåäèòå N');
     readln(n);
     kol:=0;
for i:=1 to n do begin
x:=i;
f:=true;
while x<>0 do
begin
z:=x mod 10;
if (z>0) then
if (i mod z>0) then f:=false;
x:=x div 10;
end;
if (f) then
begin
Write(i:4);
kol:=kol+1;
end;end;
Writeln;
Writeln('kol=',kol);
END.

program inter13;
var s:string;
    i,n,c,pr:integer;
    kol,j:byte;
    f:boolean;
BEGIN
     writeln('Введите N');
     readln(n);
     kol:=0;
     for i:=1 to n do
         begin
              Str (i, S);
              f:=true;
              for j:=1 to length(s) do
                  begin
                  val(s[j],c,pr);
                  if (c>0) then
                  if (i mod c>0) then f:=false;
                  end;
              if (f) then
               begin Write(i:4); inc(kol); end;
         end;
         writeln;
     writeln('Кол-во ',kol);
 
END.