Написать программу на Паскаль с использованием функции, которая ">

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) значит возвести в квадратный корень число Х