Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное число, не оканчивающееся на 2. Программа получает на вход последовательность натуральных чисел, заканчивающуюся нулём. В последовательности всегда имеется чётное число, не окан- чивающееся на 2.
Количество чисел не превышает 1000. Введённые числа не
превышают 30 000.
Программа должна вывести одно число --минимальное
чётное число, не оканчивающееся на 2.
program min_ne_okon_na_2;
var
m,x:integer;
begin
m:=30000;
read(x);
repeat
if (x<m)and(x mod 2=0)and(x mod 10<>2) then
m:=x;
read(x);
until x=0;
write(m);
end.