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.
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.