(*************************************************************************************
 * Acest program este un simplu exemplu de utilizare a variabilelor de tip procedura.
 * In Turbo/Borland Pascal acest tip nu este activat implicit. 
 * Pentru acest scop se foloseste directiva {$F+}
 *************************************************************************************)

{$F+}
uses crt;
var h: procedure;

procedure unu;
begin
  writeln('A fost apelata prima procedura!');
end;

procedure doi;
begin
  writeln('A fost apelata a doua procedura!');
end;

begin
  clrscr;
  h := unu;
  h;
  h := doi;
  h;
  readkey;
end.