Пожалуйста, посмотрите эти 2 задачи!

Program qqq;
var n, i, a, b, c, d, e, y, k : integer;
begin
writeln ('Введите число');
readln(n);
y:=i;
a:= y div 10000;
b:= (y div 1000) mod 10;
c:= (y div 100) mod 10;
d:= (y div 10) mod 10;
e:=y mod 10;
for i:= 1 to n do
if (i/a = a*k) and (a<>0) and ((a*k)<=(i/a)) then write (i, ' ')
else if (i/b = b*k) and (b<>0) and ((b*k)<=(i/b)) then write (i, ' ')
else if (i/c = c*k) and (c<>0) and ((c*k)<=(i/c)) then write (i, ' ')
else if (i/d = d*k) and (d<>0) and ((d*k)<=(i/d)) then write (i, ' ')
else if (i/e = e*k) and (e<>0) and ((e*k)<=(i/e)) then write (i, ' ');
readln;
end.

Program qqq;
var n, i, a, b, c, d, e, y, k : integer;
begin
writeln ('Ââåäèòå ÷èñëî');
readln(n);
for i:= 1 to n do begin
y:=i;
a:= y div 10000;
b:= (y div 1000) mod 10;
c:= (y div 100) mod 10;
d:= (y div 10) mod 10;
e:=y mod 10;

Program qqq;
var n, i, a, b, c, d, e, y, k : integer;
begin
writeln ('Введите число');
readln(n);
for i:= 1 to n do
begin
y:=i;
a:= y div 10000;
b:= (y div 1000) mod 10;
c:= (y div 100) mod 10;
d:= (y div 10) mod 10;
e:=y mod 10;
if (i/a = a*k) and (a<>0) then write (i, ' ')
else if (i/b = b*k) and (b<>0) then write (i, ' ')
else if (i/c = c*k) and (c<>0) then write (i, ' ')
else if (i/d = d*k) and (d<>0) then write (i, ' ')
else if (i/e = e*k) and (e<>0) then write (i, ' ');
end;
readln;
end.

uses crt;
var n,i,y,k,d:integer;
begin
write('Введите натуральное число n=');
readln(n);
writeln('Числа делящиеся на каждую из своих цифр');
for i:=1 to n do
if i<10 then write(i,' ')
else
 begin
  y:=i;
  k:=0;
  while (y>0)and(k=0) do
  if (y mod 10=0)or(y mod(y mod 10)<>0)then k:=1
  else y:=y div 10;
  if k=0 then write(i,' ');
 end;
end.

var
n,i,k,t:integer;
f:boolean;
begin
readln(n);
for i:=1 to n do
 begin
   k:=i;
   f:=true;
   while (k>0) and (f) do
     begin
      t:=k mod 10;
       if (t=0)or(i mod t<>0) then f:=false;
       k:=k div 10;
     end;
  if f then write(i,' ');
  end;
end.