выведите (через пробел ) все четные числа от a до b (включительно)

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.