program Procedimentos_Aninhados;

 { para entender como o presente programa é executado sugiro sua execução com pressionamentos da tecla F7 }

 procedure Procedimento1; { este procedimento pertence ao programa principal }

 procedure Procedimento2; { este procedimento pertence ao procedimento Procedimento1 }

       begin { of procedure Procedimento2}

        Writeln('2:Boa noite.');

       end; { of procedure Procedimento2}

      begin { of procedure Procedimento1}

        Writeln('1:Bom dia.');

        Procedimento2; { chama o Procedimento2}

      end; { of procedure Procedimento1}

      begin

            Writeln('Principal');

            Procedimento1; { chama o Procedimento1}

           Writeln('Principal');

       end.