Pascal, задачка для 7 класса.

[Pascal_User]

:D
Помогите, немогу решить задачку.
***
Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.
***

ed:=k mod 10;
if ed<>0 then
   if (i mod ed)=0 then
k:=k div 10;

Это, я так понимаю надо зациклить до того момента пока

k div 10

не станет равно нулю.
Куча набросков, вобщем, есть и даже рабочая программа, но нерациональная и в три процедуры по-нубски оформлена )
Вобщем как-то так... поделитесь мыслями, кому не трудно.

[Sazary]

Вот оно. Естественно, деление на ноль (если число =20, 30 и т.п) не производим.

uses crt;
var
n,i,k,a : integer;
fl : boolean;
begin
clrscr;
write('Enter n: ');
readln(n);
writeln('--------');

for i:=1 to n do
 begin
 fl := true;    { считаем, что условие выполняется (делится на свои цифры) }
 a := i;         { сохраняем число }
 while (a>0) and fl do  { перебираем цифры }
  begin
  k := a mod 10;    { получаем следующую цифру }
  a := a div 10;
  if (k>0) and (i mod k <> 0) then fl:=false;  { если число не делится на нее, то выходим }
  end;
 if fl then writeln(i);  { если условие выполняется - выводим }
 end;

readln;
end.

[capta1n]

program x1;
var
 n,m,k : word;
 i : word;
 flag : boolean;
begin
  write ('Vvedite n: '); readln (n);
  for i:=1 to n do
  begin
    flag:=false;
    m:=i;
    repeat
      k:=m mod 10;
      if (k = 0) or (i mod k <> 0) then
      begin
        flag:=true;
        break
      end;
      m:=m div 10
    until m=0;
    if flag then continue;
    writeln (i)
  end;
  readln
end.

[Pascal_User]

Спасибо, Boolean тип не додумался использовать.
Ушел учить матчасть =\