Question

ПОМОГИТЕ!!!!!!! ПЖПЖПЖПЖППЖ СРОЧНО!!!!!

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6 и не оканчивающихся на 8. Про-грамма должна вывести одно число: количество чисел, кратных 6 и не оканчивающихся на 8.
Пример работы программы:
Входные данные
36
18
14
48
54
0
Выходные данные
2

Answer 1

var k, n, a, amax: integer;

begin

amax:=0;

readln(n);

for k:=1 to n do

begin

readln(a);

if (a mod 6 = 0) and (a>amax) then

amax:=a;

end;

writeln(amax);

end.