EXERCICIO 3.

1)PROGRAM EXERCICO_3;

VAR VAL1, VAL2 : INTEGER;
PAR, IMPAR : STRING;

BEGIN

READ (VAL1, VAL2);

IF (VAL1 > VAL2) THEN;

WRITE (VAL1);

ELSE;

IF (VAL2 > VAL1) THEN;

WRITE (VAL2);

IF (VAL1 MOD 2 = 0) THEN;

WRITE ("PAR");

ELSE;

WRITE ("IMPAR")

IF (VAL2 MOD 2 = 0) THEN;

WRITE ("PAR");

ELSE;

WRITE ("IMPAR");

END.