Напишите программу которая в последовательности натуральных чисел определяет количество чисел кратных 6. Программа получает на вход количество чисел в последовательности а затем сами числа. В последовательности всегда имеется число кратное 6. в паскале ​

var

n, i, a, z: integer;

begin

z := 0;

read(n);

for i := 1 to n do

begin

read(a);

if a mod 6 = 0 then

z := z + 1

end;

writeln(z);

end.

// PascalABC.NET

begin

 var n := ReadInteger;

 ReadSeqInteger(n).Count(p -> p mod 6 = 0).Print

end.

1) Команда выделенная полужирным будет выполняться при двойном клике левой кнопкой мыши по той-же иконке
2) Если операционная система Windows то:
- Кликнуть на красный крестик в верхнем правом углу
- Кликнуть правой кнопкой мыши по шапке окна, нажать закрыть
- В списке открытых окон внизу, на панели с кнопкой "пуск", выбрать нужное окно, кликнуть правой кнопкой мыши и выбрать закрыть
- в этом же списке просто навести на окно, подождать появится маленькое окошечко с содержимым главного окна, на нем тоже есть красный крестик, нажать его
-Открыть диспетчер задач, найти в списке нужное окно выделить его и нажать кнопку "завершить процесс"
-Сочетание клавиш Alt+F4 закрывает окно
- комбинация клавиш Ctrl+W закрывает некоторые окна

В слове ЗИМА обозначаем буквы их порядковым номером: З - девятая буква алфавита, И - 10, М - 14, А -1. 
Получаем последовательность 9  10  14  1.
Будем шифровать слово ИНТЕРНЕТ.
Букву И сдвигаем на 9 букв, получаем С,
букву Н сдвигаем на 10 букв, получаем Ч
букву Т сдвигаем на 14 букв, получаем А (так как сдвиг на 13 это буква Я, алфавит начинается заново, 14 будет буква А)
букву Е сдвигаем на 1 букву, получаем Ж (если в алфавите Ё не считается)
Букву Р сдвигаем на 9 букв, получаем Щ, 
букву Н сдвигаем на 10 букв, получаем Ч
букву Е сдвигаем на 14 букв, получаем У
букву Т сдвигаем на 1 букву, получаем У
ответ ИНТЕРНЕТ = СЧАЖЩЧУУ