Лаба 4 вар 9 / My_Unit

unit My_Unit;

interface
uses Dialogs;
var t1:real;
function e(t,s:real):real;

procedure e1(t,s:real; var d:real);

implementation
const a=3; b=5;
var x, y, z, z1, z2, z3, n1, n2, n3, n4:real;
procedure e1(t,s:real; var d:real);
begin
t1:=exp(ln(t)*s);
d:=t1;
end;
function e(t,s:real):real;
begin
t1:=exp(ln(t)*s);
e:=t1;
end;
end.