Помогите пожалуйста с математикой :)

[ShwilyIgor]

Всем привет! Люди, если можете подскажите плиз
Даны действительные a,b,c.
g(a,b) cos(x+y) cos(x-y)
получить g(a,c) * ---------, где g(x,y) = ----------- * ----------
g(b,c) sin(x+y) sin(x-y)

Я в этом деле новичек...
Нвид задачка на 5 минут, только чтото у меня не выходит...

[ShwilyIgor]

чтото страшное вышло))))))))))))))))
вот так правильно будет:
Даны действительные a,b,c.
получить g(a,c) *(g(a,b)/g(b,c) ), где g(x,y) =( cos (x+y)/sin(x+y) ) * ( cos(x-y)/sin(x-y) )

[Хыиуду]

И в чем проблема?
function g(x,y:real):real;
begin
g:=( cos (x+y)/sin(x+y) ) * ( cos(x-y)/sin(x-y) );
end;

А в программе, после того, как задали a,b,c:
writeln(g(a,c) *(g(a,b)/g(b,c) ));

[ShwilyIgor]

Большое спасибо! Все получилось