Дан одномерный массив состоящий из 10 элементов. Найти кол во чисел кратных 7

program zz1;

var i, kol:integer;

mas:array[1 ... 10] of integer;

begin

for i:=1 to 10 do / /заполняем массив числами с клавиатуры через пробел

read (mas[i]);

for i:=1 to 10 do

if mas[i] mod 7 = 0 then kol:=kol+1; / /проверяем, если число дклится на 7 без остатка, то считаем его

write ('количество чисел кратных 7=', kol); / /выводим ответ

end.