TURBO PASCAL:Учебное пособие. Терёхин В.В. - 101 стр.

procedure p3; far;
begin
  Writeln ('процедура №3’) ;
End;

var
   p: TProc;
begin
   p:= p1;
   Exec_Proc(p);
   Exec_Proc(p2);
   Exec_Proc(p3);
end.

program p40;
type
   TFunc= function(x: real): real;
procedure Func_Tab(f: TFunc; a, b, h; real);
var
   x: real;
begin
   x: = a;
   While x <= b do
    begin
      WriteLn(‘x = ' , x: 6: 4, ' f(x) = ' ,
         f(x): 6: 4) ;
      x: = x + h ;
    end;
end;
function fl(x: real): real; far;
begin
   f1:= sin(x);
end;
function f2(x: real): real; far;
begin
                                               101