определить максимальное четное число, которое делится на 3, среди введенных пользователем чисел. При условии, что он вводил натуральные числа. Признаком остановки ввода служит число 0.ПАСКАЛЬ

Предыдущий
вопрос Следующий
вопрос

program maxEvenDivisibleBy3;

var
num, maxEven: integer;

begin
maxEven := 0;

repeat
write('Введите число: ');
readln(num);

until num = 0;

if maxEven <> 0 then
writeln('Максимальное четное число, которое делится на 3: ', maxEven)
else
writeln('Среди введенных чисел нет четных чисел, которые делятся на 3.');
end.