Помогите с функцией !! Очень срочно надо !!!!

[masha17]

Дано действительные числа х и у. Обчислить s=f(x, -2y, 1.17)+f(2.2, x, -y), где f(a,b,c)=(2a-b-sin c)/(5+|c|).

[Sazary]

uses crt;
var s,x,y : real;
function f(a,b,c : real) : real;
 begin
  f := (2*a-b-sin(c))/(5+abs(c));
 end;
begin
clrscr;
write('Enter x: ');
readln(x);
write('Enter y: ');
readln(y);
s := f(x,-2*y,1.17)+f(2.2,x,-y);
writeln('s= ',s:8:5);
readln;
end.

ps Делайте адекватные заголовки

[masha17]

Спаибочки )) Хорошо ))