Найти и вывести на экран восемь первых натуральных чисел, которые оканчиваются и делятся на заданную цифру n.

//Найти и вывести на экран восемь первых натуральных чисел, которые
//оканчиваются и делятся на заданную цифру n.
uses crt;
var n,k,a,c:integer;
begin
repeat
write('Введите цифру, отличнуюю от 0 n=');
readln(n);
until n in [1..9];
k:=0;
a:=1;
while k<8 do
 begin
  c:=a mod 10;
  if (c=n)and(a mod c=0) then
   begin
    write(a,' ');
    k:=k+1;
   end;
  a:=a+1;
 end;
end.

//Найти и вывести на экран восемь первых натуральных чисел, которые
//оканчиваются и делятся на заданную цифру n.
function nod(a, b: integer): integer; 
begin
  while (a <> 0) and (b <> 0) do begin
    if a >= b then 
      a:= a mod b 
    else 
      b:= b mod a;
  end;
  nod:= a + b;
end; 
 
function nok(a, b: integer): integer;
Begin
  nok:=(a div nod (a, b))*b;
end;
 
var 
  n,k,a:integer;
  m: integer;
begin
  write('Цифра=');
  readln(n);
  m:= nok(10,n);
 
  k:=0;
  a:=n;
  while k<8 do
    begin
      if k>0 then write(';');
      write(a);
      inc(k);
      inc(a,m);
    end;
  writeln;
end.