Написать переменную для определения количества чисел кратных 3 и оканчивающихся на 6. (Pascal)

Program Test;

const size = 5;

Var num, counter, i: integer, mas: array[1 ... size] of integer;

Begin

for i : = 1 to size do

begin

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

Readln (mas[i]) ;

end;

for i : = 1 to size do

begin

if (mas[i] mod 3 = 0) and (mas[i] mod 10 = 6) then

counter : = counter + 1;

end;

Writeln () ;

Writeln ('Ответ: ', counter) ;

End.