Листинг программы

program z1;

{Зад. лин таб, сост из цел. чисел. Опред есть

 ли в этой таб хотя бы одно число кратное k}

uses crt;

var a : array [1..100] of longint;

    i,k,n : longint;

 begin

  clrscr;

   write('введите кол-во элм таблицы:');readln(n);

   write('введите число:');readln(k);

   for i:=1 to n do

    begin

     write('a[',i,']=');readln(a[i]);

    end;

   for i:=1 to n do if k mod a[i]=0 then write(a[i],' ');

  readln;

 end.