Помогите решить информатику. Тема: Линейные программы. Вычислить значение выражения.

Question

Помогите решить информатику.
Тема: Линейные программы.
Вычислить значение выражения.

---

---

Answer 1

Program _5;
var a,b,x,y:real;
F,s:real;
begin
writeln ('Введите a,b,x,y через пробел: ');
readln (a,b,x,y);
F:=(pi-sqrt(a*sqr(b)/(x-cos(a+b))))-3;
s:=(x+y-cos(12-sqr(y)))/(pi+sin(1001+sqr(a)))+sqrt(sqr(x));
writeln('F= ',F);
writeln('s=',s);
end.