Задание на фотографии:

На паскаль я так понимаю?

Если да, то:

var x, i, z:integer;

   y:real;

begin

 readln(x);

 y:=0;

 for i:=1 to 20 do

   y:= y + sqrt(i*Exp(i*(ln(x))));

 write(y);

end.

Exp(...) Возводит в степень

Пограмма выведет значение y функции со значением x