c:/gdsf/web/fuentes_pascal/PAR.PAS

PROGRAM EJER34;
USES CRT;
VAR num : INTEGER;
BEGIN
CLRSCR;
WRITE ('Introduzca un numero entero: ');
READLN (num);
IF num = 0 THEN
     WRITE ('El numero introducido no es par ni impar, es 0')
ELSE
     IF ( (num MOD 2 = 0) ) THEN
        WRITE ('El numero introducido es par')
     ELSE
        WRITE ('El numero introducido es impar')
END.