unit intlibr;


interface
   uses Math;

procedure pr_P(g1,g2:Integer; var a,b,c,pr_p:real);
procedure pr_R(var a,b,c,pr_r:real);
procedure pr_T(var a,b,c,pr_t:real);
implementation

procedure pr_P;
  begin
    pr_P:=(Power(10,3)/g1*g2)*(1/(a+b));

  end;
procedure pr_R;
     begin
   pr_R:=((a*b)/c)+(b/(a*c));
  end;

procedure pr_T;
     begin
   pr_T:=((a+b)/(c+b))+((a+(b/c))/(c+(a/b)));
  end;
end.

і сама программа

program individl1;

{$APPTYPE CONSOLE}

  uses
  math,
  SysUtils,
  intlibr;

var
     p_P,p_R,pr_p,pr_r,pr_t,p_T:Real;
    g1,g2:Integer;
    a,b,c:real;

begin
 write('Enter g1,g2,a,b,c ');
 readln(g1,g2,a,b,c);
p_P:=pr_P(g1,g2,a,b,c);
 writeln('Func P = ',p_P:4:4);
p_R:=pr_R(a,b,c);
 writeln('Func R = ',p_R:4:4);
p_T:=pr_T(a,b,c);
Writeln('Func T = ',p_T:4:4);
readln;
end.