Имеется трёхзначное число, цифры которого различны. После зачёркивания в нём последней цифры, остаётся двузначное число, являющееся делителем данного. Найдите 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.