Números pares entre dois valores inteiros.

program pares;
 
var
  x, y: integer;
 
begin
  writeln('Digite os dois valores');
  readln(x, y);
  if (x mod 2) <> 0 then
    x := x + 1;
  while x <= y do
  begin
    writeln(x, ' - ');
    x := x + 2;
  end;
  writeln('Fim da Lista');
 
end.