Код:
Program C;
const x=1.426;
m=9;
var
C,dt,a: real;
Function f1(mf,dtf:real):real;
begin
f1:=mf*dtf;
end; {f1}
Function f2(mm,dd:real):real;
begin
f2:=f1(mm,dd)/sqr(cos(f1(mm,dd)));
end; {f2}
Begin
dt:=sin(x)/m;
writeln('Введите значение а');
readln(a);
C:=a*x*(f2(m,dt)+f2(m,dt)*m/cos(f1(m,dt)))/(2*dt);
writeln ('C= ',C);
readln;
end.
Вроде бы так, но не проверял. Кстати, для вычисления cos можно сделать еще и третью функцию