Помогите решить информатику pascal a b x Задание 8

Question

Помогите решить информатику pascal a b x Задание 8

---

Answer 1

var y,a,b:real;

   x:integer;

begin

writeln('Введите значения переменных');

writeln('a= '); readln(a);

writeln('b= '); readln(b);

writeln('x= '); readln(x);

y:=sqrt((a+b)/(1-cos(3.6*x)))+3.95;

writeln('y= ',y);

end.