Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 4. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 4. количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число — максимальное число, кратное 4. пример работы программы: входные данные выходные данные 3 8 16 11 16

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
  сч, макс: ЦЕЛ;

УКАЗ
  СОЗДАТЬ(массив, Приём.Число());
  ОТ сч := 0 ДО РАЗМЕР(массив^) - 1 ВЫП
    Вывод.Цепь("^");
    массив[сч] := Приём.Число()
  КОН;
  макс := 0;
  ОТ сч := 0 ДО РАЗМЕР(массив^) - 1 ВЫП
    ЕСЛИ массив[сч] ОСТАТОК 4 = 0 И массив[сч] > макс ТО
      макс := массив[сч]
    КОН
  КОН;
  Вывод.ЧЦел("^%d", макс, 0, 0, 0)

КОН Задание.