вывести экран все четные значения в диапазоне от a до b

program raf105;

var  

 i,a,b: integer;

begin

 write('Введите 2 числа (начало и конец диапазона): ');

 readln(a,b);

 for i:=a to b do

   writeln(i);

end.