Pascal/Turbo Pascal - Operador odd

program numPares;

procedure muestra(num1: integer; num2: integer);

var

	i: integer;

begin

	for i:= num1 to num2 do				{el bucle termina al alcanzar la segunda cifra}

	begin

		if odd(i) = false then			{aqui odd valora si el numero es impar y si no lo es (impar = false)}

		writeln(i);						{entonces muestra valor de i, que por fuerza ha de ser par}

	end;

end;

 var				{variables reales}

	numero1: integer;

	numero2: integer;

begin

	write('Introduzca primer numero: ');

	readln(numero1);

	writeln();

	write('Introduzca segundo numero: ');

	readln(numero2);

	writeln();

	muestra(numero1, numero2);

end.