4. Дан одномерный массив B [N], длинной в 12 элементов. Выведите на экран все элементы этого массива, кратные ​

program qq;

const n = 12;

var ms:array[1..n] of integer;

   i:integer;

begin

 for i:= 1 to n do begin

   write('введите ', i, ' число ');

   readln(ms[i])

 end;

 for i:= 1 to n do

   if ms[i] mod 5 = 0 then writeln(ms[i],' делятся на 5 без остатка')

end.