ПОЖАЛУЙСТА, Пожалуйста посчитайте! 70 поинтов!!!Написать программу на Паскаль с использованием функции, которая вычисляет следующее выражение.

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