Задание 22 ЕГЭ

program zadanie22;//для минимального значения цикл с 1000000 до 1, а для максимального наоборот. Иногда нужно брать значение больше.
var x,i, a, b,m: integer;
begin
for i:=10000 downto 1 do begin//for i:=1 to 100000 do
  x:=i;
a := 0; b := 0;
while x > 0 do
  begin
  a := a + 1;
  if x mod 2= 0 then
    b := b + x mod 10;
    x := x div 10;
    end;
    if (a = 3) and (b = 12) then m:=i
    end;
    print(m);
end.