Программа

Program Pilshikov_5_40 (input,output);
{ Дана последовательность
  положительных вещественных
  x1, X2, ..., xN , за которой идет
  отрицательное.
  Вычислить
  N*x1+(N-1)*x2+...+2*x(N-1)+xN   }
Var  x,Result,SumX:real;
     n:integer;
BEGIN
  Writeln;
  Result:=0;
  SumX:=0;
  n:=0;
  n:=n+1;
  Write('Введите x',n,' ');
  Readln(x);
  while x>=0 do
    Begin
      SumX:=SumX+x;
      Result:=Result+SumX;
      n:=n+1;
      Write('Введите x',n,' ');
      Read(x)
    End;
  Writeln('Result ',Result)
END.