'((a+b+c)/x)^2 можете написать програму ** паскале

Question

'((a+b+c)/x)^2 можете написать програму на паскале

Answer 1

Var a,b,c,x:Real;
begin
Read(a,b,c,x);
WriteLn(exp(ln(((a+b+c)/x)) * 2));
end.