PROGRAM DAY

VAR= X,Y INTEGER;

BEGIN

REALD (NUM);

IF (X,Y MOD 5) THEN

WRITE (" É MEIOR");

ELSE

WRITE (" IMPAR ");

END

END