program Procedimentos_Aninhados;
{ para entender como o presente porgrama e' executado
  sugiro sua execucao 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.