Помогите срочно информатика паскаль

Question

Помогите срочно информатика паскаль

---

Answer 1

program qq;

var x,a,y:real;

Begin

     writeln('Vvedi a');

     readln(a);

     writeln('Vvedi x');

     readln(x);

    //a:=0.5;

   // x:=4;

    y:=sqr(cos(x+a))/abs(x+a)+sin(x+a)*(x+a);

    writeln(y);

end.