Задана линейная таблица состоящая из целых чисел. Определить есть ли в этой таблице хотя бы одно число кратное k

Program z;
   const n=10;
   var i,k:integer;
        a:array[1..n] of integer;
begin
    writeln(введите k);
    readln(k);  
    i:=1;
    while (i<=n) and (a[i] mod k<>0) do i:=i+1;
     if i<=n then writeln (Число, кратное, ,k,, есть)
     else (Числа, кратного  ,k,, нет);
     readln
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.