помогите решить задачу Опции

[joker1989]

Дано х, определить z.

Добавлено через 3 мин.
Извините, над суммой не H, а 4.

[Diablo]

должно быть так

 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.