Даны натуральные числа а, b. Найти все четные числа промежутка — Pascal(Паскаль)

var
  a, b: integer;

begin
  write('a-> ');
  readln(a);
  write('b-> ');
  readln(b);
  while a <= b do
  begin
    if (a > 0) and (a mod 2 = 0) then
      writeln(a);
    inc(a);
  end;
  readln;

end.