function mono(x:integer):real;
var y:real;
i:integer;
begin
y:= 0;
for i:=1 to 3 do
y:= y + ((sqrt(x*i)*exp((x*i)*(ln(x*i / 2);
mono:=y;
end;
begin
write(mono(2));
end.
Объяснение:
Exp(x*(ln(y))) значит возвести в степень Х число Y
Sqrt(x) значит возвести в квадратный корень число Х
