Функции пользователя(Паскаль)

[Андрей77777]

Помогите решить плиз
Задача
С помощью функций пользователя вычислить:
R=sin(x1*x2)-e(в степени(x1*x2)+ln(x1*x2)/sin(x1-x2)-e(в степени(x1-x2))+ln(x1-x2)

x1=42,8 x2=14,3

[savaxakep]

тебе надо написать функцию которая вычисляет данное выражение?

[Mad_Cat]

function R(x,y:real):real;
begin
R:=sin(x+y)-exp(x*y)+ln(x+y)/sin(x-y)-e(x-y)+ln(x-y);
end;

использование

x1:=42.8 x2:=14.3 ;
writeln(R(x1,x2):6:3);