Решите, максимально отдам
Последовательно вводятся с клавиатуры натуральные числа (конец ввода – число 0). Найти
максимальное из четных чисел.

Var A,b,N:integer; Begin Read(n); If n=0 then writeln('штрафное время не заработано') else While n<>0 do If n>0 then a:=a+n else b:=b+n;  Writeln('a-',a,'b-',b,'общее-',a+b); End.

Объяснение:

тип вот

2,4,6,8,0.

Правильный ответ не сомневайся.