4.1 c)

PROGRAM PaulRevere(INPUT, OUTPUT);
{Печать соответствующего сообщения, зависящего от величины
на входе:  '...by land' для L и '...by sea' для LL
иначе печать сообщения об ошибке}
VAR
  Lanterns: CHAR;
BEGIN {PaulRevere}
  {Read Lanterns}
  READ(Lanterns);
  {Issue Paul Revere's message}
  IF Lanterns = 'L'
  THEN
    BEGIN
      READ(Lanterns);
      IF Lanterns = 'L'
      THEN
        WRITE('The British are coming by sea.')
      ELSE
        WRITE('The British are coming by land');
    END
  ELSE
    WRITE('The North Church shows nothing')
END. {PaulRevere}