3 задание, очень жду ответ

N - количество чисел в последовательности, i - для организации цикла for, x - очередное число из последовательности
В начале задаем значение max = 0, потому что рассматриваем последовательность натуральных чисел ( 1 и больше), то есть первое же натуральное четное будет записано в max
В конце выводим ьфч только если он не равен нулю, тоесть в последовательности было натуральное четное число!
program z1;var n, i, x, max: integer;beginmax := 0;readln(n);for i := 1 to n dobegin   read(x);   if (x mod 2 = 0) and (x > max) then max := x;end;if max > 0 then writeln(max) else writeln ('Не таких чисел');end.

небытие это полнота, насыщенность. логика в том что оно иноприродно разуму, и являет собою структуру, лишь ограничевающею наш чувственный мир. логика, дедукция, индукция, если есть бытие то в антитезе существует не бытие, антипод бытия, вот чем вы наполните пустоту небытия, ну что такое пустота как не ограниченая форма материи. возьмите арсенал мира, с философией, и что вы в ней найдёте, мы все слепые как котята. на симпозиумах и конференциях полемизируют, не о яйце и курице а о курице яйце. илона важно сохранить атомы вашего тела, для будущей картины мира, мы из вашей материи после вашей смерти будем строит жизнь, а пока живите счастливо и в любви, и бога. ваш инженер