Ответ:

program test;var a, b, i: integer;begin   write(‘Enter a, b: ‘);   readln(a, b);   for i:=a to b do      if i mod 2 = 0 then         write(i, ‘ ‘);   readln;end.