1-Вычисляемые выражения2-Функции пользователя Составить программку использовав простейшую

Function f(a,b,x:real):real;
begin
f:=sin(a*x+b);
end;
var x,y,z:real;
begin
write('x = ');
readln(x);
y:=(f(2,1,x)+f(3,0.5,x))/(1+f(pi/8,0,1));
writeln('y = ',y);
z:=(1+f(3,0,x))/(2+f(3,pi/9,x));
writeln('z = ',z);
end.

Пример:
x = 0.5
y = 1.31526480399107
z = 0.674480246759953