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

Program Test;const size = 5;Var num, counter, i: integer, mas: array[1..size] of integer;Beginfor i := 1 to size dobeginWrite('Введите ', i, ' число');Readln(mas[i]);end;for i := 1 to size dobeginif (mas[i] mod 3 = 0) and (mas[i] mod 10 = 6) thencounter := counter + 1;end;Writeln();Writeln('Ответ: ', counter);End.