var l,n,x,y,z,a,u:real;
begin
read(u); // число в степень
read(l,n,x,y,z);
a:=(l*n*x+l*n*y)*(l*n*x+l*n*y)/exp(ln(Abs(x+y+z)*u));
write(a);
end.
вроде так если есть данные тестовые проверь
если что пиши
var l,n,x,y,z,a,u:real;
begin
read(u); // число в степень
read(l,n,x,y,z);
a:=(l*n*x+l*n*y)*(l*n*x+l*n*y)/exp(ln(Abs(x+y+z)*u));
write(a);
end.
вроде так если есть данные тестовые проверь
если что пиши