Памагите буду лакать вас ​

Решение с массивом
var a: array[1..1000] of longint;
i, n, k1, k2: longint;
begin
k1 := 0;
k2 := 0;
read(n);
for i := 1 to n do
begin
read(a[i]);
if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then k1 := k1 + 1;
if (a[i] mod 3 = 0) and (a[i] mod 2 = 1) then k2 := k2 + 1;
end;
writeln(k1, ' ', k2);
end.

Решение без массива
var x, i, n, k1, k2: longint;
begin
k1 := 0;
k2 := 0;
read(n);
for i := 1 to n do
begin
read(x);
if (x mod 2 = 0) and (x mod 5 = 0) then k1 := k1 + 1;
if (x mod 3 = 0) and (x mod 2 = 1) then k2 := k2 + 1;
end;
writeln(k1, ' ', k2);
end.

Текстовый процессор – программа для создания, редактирования и просмотра текстового документа в интерактивном режиме с широкими возможностями для оформления и создания макета для печати. Одними из самых популярных можно считать Microsoft Word, OpenOffice.org Writer, WordPad.

Текстовый редактор – программа для ввода и изменения текста, в том числе исходного кода программ, и просмотра текстовых файлов. Самыми популярными остаются NotePad++, Блокнот.

Текстовый процессор

Дает широкие возможности для форматирования текста документа и добавления в него различных объектовСозданные файлы содержат коды для создания и редактирования макетов документов, подготовки к печатиРаботает с файлами собственного форматаМожет быть требовательным к ресурсам системы

Текстовый редактор

Позволяет просто вводить и править текстСозданные файлы содержат только символы текстаПредназначен для работы с текстом, в том числе исходным кодомУниверсален для файлов, созданных в других редакторахПрактически не дает нагрузки на систему при работе