Дано х, определить z.
Добавлено через 3 мин.
Извините, над суммой не H, а 4.
program summa;
uses crt;
var n,x:integer;
z,s:real;
begin
clrscr;
s:=0;
write('vvedite x=');
readln(x);
for n:=1 to 4 do
s:=s+exp((2*n+1)*ln(x));
z:=0;
for n:=5 to 10 do
z:=z+exp(n*ln(x));
z:=z+s;
write(z:0:0);
readln
end.