Программа

Program Pilshikov_5_41 (input,output);
{ Даны целые x1, x2, ..., x55
  Вычислить
    x1*
  *(x2+x3)*
  *(x4+x5+x6)*
  *...*
  *(x46+x47+...+x55)        }
Var x,xNumber,i,iBig:integer;
    Result,Sum:real;
BEGIN
  Result:=1;
  Sum:=0;
  iBig:=1;
  i:=iBig;
  for xNumber:=1 to 55 do
    Begin
      Write('Введите x',xNumber,' ');
      Readln(x);
      Sum:=Sum+x;
      i:=i-1;
      if i=0 then begin
                    Result:=Result*Sum;
                    Sum:=0;
                    iBig:=iBig+1;
                    i:=iBig
                  end
    End;
  Writeln('Ответ: ',Result);
END.