чет у тебя вс сложно)))
надо наверное так:

var
i, n: integer;
summa: real;
begin
  summa := 0;
  Writeln;
  Write('Vvedite 4islo 4lenov posledovatelnosti: ');
  Read(n);
  for i := 1 to n do
  begin
    summa := summa + ((-1)^(i-1))/(i^i);
  end;
  writeln('summa: ', summa);
end.

эм... только не помню есть ли '^' в паскале.... если не канает, то может есть функция powerв юните Math, накройняк можно написать свою))
типа:

function pow(const Base, Exponent: Integer): LongInt;
begin
  Result := Base;
  for i := 1 to Exponent do
    Result := Result * Result;
end;

тогда конечный результат такой:

var
i, n: integer;
summa: real;
 
function pow(const Base, Exponent: Integer): LongInt;
begin
  Result := Base;
  for i := 1 to Exponent do
    Result := Result * Result;
end;
 
begin
  summa := 0;
  Writeln;
  Write('Vvedite 4islo 4lenov posledovatelnosti: ');
  Read(n);
  for i := 1 to n do
  begin
    summa := summa + pow(-1, i-1)/pow(i, i);
  end;
  writeln('summa: ', summa);
end.

З.Ы. паскаль не помню, только в делфе щас работаю, так что могу ошибаться кое-где:)))

Maq, да да так не получится!!(((

Да есть в паскале "^" такая штука сто пудова это в Си нету, Maqa  прога должно работать, ну или может быть не большие синтаксические ошибки, компилятор покажет там не трудно.

Ни в С, ни в Паскале '^', как операции возведения в степень, НЕТ.
В них вообще нет такой операции. Это же вам не математические языки, типа Fortran'a.

Rastaman, спасибо, не прет

function pow(const Base, Exponent: Integer): LongInt;
begin
  Result := 1;
  for i := 0 to Exponent do
    Result := Result * Base;
end;

имхо, так лучше