Помогите, пожалуйста, доработать
составить программу на функцию в паскале.
a=(x+sinx+a^2+sina^2+x^3+a+sin(x^3+a))/(sinx+sin(sinx)+e^-(sqrt(x)+sin(sqrt(x)))
где sqrt корень
а=1,662
x=0,168
program pr;
const a=1.662;
x=0.168;
var y,t,k: real;
begin
t:=x+sin(x)+sqr(a)+sin(sqr(a))+sqr(x)*x+a+sin(sqr(x)*x+a);
k:=sin(x)+sin(sin(x))+exp(-sqrt(x)+sin(sqrt(x)));
y:=t/k;
write ('y=' , y);
readln;
end.
составить программу на функцию в паскале.
a=(x+sinx+a^2+sina^2+x^3+a+sin(x^3+a))/(sinx+sin(sinx)+e^-(sqrt(x)+sin(sqrt(x)))
где sqrt корень
а=1,662
x=0,168
program pr;
const a=1.662;
x=0.168;
var y,t,k: real;
begin
t:=x+sin(x)+sqr(a)+sin(sqr(a))+sqr(x)*x+a+sin(sqr(x)*x+a);
k:=sin(x)+sin(sin(x))+exp(-sqrt(x)+sin(sqrt(x)));
y:=t/k;
write ('y=' , y);
readln;
end.