Имеется трёхзначное число, цифры которого различны. после зачёркивания в нём последней цифры, остаётся двузначное число, являющееся делителем данного. найдите n-первых таких трёхзначных чисел. (n=70)

Var k,x,a:integer;
Begin
 x:=100;
 k:=0;
 repeat
   a:=x div 10;
   if (x mod a)=0 then
     begin
      writeln(x);
      k:=k+1;
     end;
   x:=x+1;
 until k=70;
End.