Построить программу ифнорматика

Question

Построить программу ифнорматика

---

Answer 1

Var s,x,b,a: real;
begin
readln(x,b,a);
s:=sqrt((x*b)/a)+sqr(cos(exp(ln(x+b)*3)));
writeln(s);
end.