program Meu_Primeiro_Procedimento;

 { Os procedimentos ou subprogramas que não retornam valor são declarados e implementados na área de declarações do programa principal. Um procedimento possui todas as caracteristicas de um programa sendo este o motivo pelo qual são também chamados de subprogramas. Assim como os programas, os procedimentos possuem sua própria área de declaração e sua própria área de implementação. Também como os programas, os subprogramas podem conter outros subprogramas.

NOTA: na área de declarações e' também permitido declarar label's; porem, um programa pascal bem escrito não deve incluir label's e goto's.

 DESVIOS INCONDICIONAIS SÃO SEMPRE FONTES DE PROBLEMAS DIFICEIS DE RESOLVER! }

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

 procedure Procedimento1; { este procedimento pertence ao programa principal }

   begin { of procedure }

        Writeln('Bom dia.');

     end; { of procedure }

   begin

          Writeln('Oi');

          Procedimento1; { chama o Procedimento1}

         Writeln('Aqui');

          Procedimento1; { chama o Procedimento1}

          Writeln('Fim');

     end.