Составить программу вычисления функции, используя обращение к подпрограмме

[gudok2]

Помогите пожалуйста....Паскаль

[Rin]

Немного подкорректируй, и запахает.

function foo(m,k:double):double;
begin
result:=(m-ln(k))/(ln(m)*ln(m));
end;

var 3p9, He,y4uWbc9, napeHb:double;
begin
readln(He);
readln(y4uWbc9);
readln(napeHb);
3p9:=foo(He,y4uWbc9)*sin(foo(napeHb,y4uWbc9));
writeln(3p9:10:3);
readln;
end.