Функции в Паскале

[Андрей77777]

Прошу помогите решить задачи,не успеваю сдать зачет
Задача№1
С помощью функций пользователя вычислить
Безымянный2.jpg

Задача№2
Воспользовавшись процедурой вычислить
Безымянный.jpg

р-максимальный элемент массива X;
к-максимальный элемент массива У;
x={0.5 ; 9.14; 2.8; 4.45}
y={5.17;-0.18; 3.8}

[Mad_Cat]

1)

function R(x,y:real):real;
begin
R:=sin(x*y)-exp(x*y)+ln(x*y);
R:=R/(sin(x-y)-exp(x-y)+ln(x-y));
end;
var x1,x2:real;
begin
x1:=42.8;x2:=14.3;
Writeln(R(x1,x2):6:3);
end.