Впаскале ,7 вариант.под цифрой 7составить программу

var a,b,x,y,y1,y2,y3: real;

begin

a:=2.5;

b:=1.5;

write('x = ');

readln(x);

y1:=sin((a+x)*(a+x));

y2:=power(abs(x-a),1/3);

y3:=ln((x-b)*(x-b)+1);

y:=x*y1*y1-y2+y3;

writeln('Y = ',y);

y1:=sqrt(a*x*x+x);

y2:=a*exp(-a*x);

y3:=ln(abs(1-x)+1);

y:=y1+y2+y3;

writeln('F = ',y);

end.