En este programa hemos utilizado la dentro de la función "If" un "Begin y End", para la condicion que que si eres mayor de edad te ponga un texto en un color especifico y si no, otro texto con otro color.
Esquema
Begin
--If (variable) > o > o = X then
------Begin
------End.
--else
------Begin
------End.
End.