Atividade 3 - Técnico de Informática

VAR VAL, NUM: INTEGER;
BEGIN
VAL:=5;
NUM:=8;
IF(VAL >=1 AND VAL<=8)THEN
WRITE(VAL);
ELSE;
WRITE(NUM);
END.