3# Procedure u Pascalu basic

program funkcije_i_procedure;
 uses crt;


  procedure pozdrav;
   begin
     writeln('pozdrav');
   end;

  //Pocetak programa

 begin
  clrscr();
   //poziv procedure pozdrav
   pozdrav();

   readln();

 end.