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.
