Задача с последовательностью Опции

[wEDOK]

Я в Паскале полный ноль, не могу сообразить даже, как задать последовательность, однако требуется для зачета!

задача: Дана непустая последовательность из n положительных вещественных чисел X1,X2,X3...Xn. Вычислить величину:
a) X1X2 + X2X3 + ...+ Xn-1Xn,
b)X1 + 2X2 + 3X3 +... + 2Xn-1 + Xn,
c) min(X1, X1X2, X1X2X3, ..., X1...Xn-1Xn).

Знаю, что задание наипростейшее, но не для меня!!! Заранее спасибо, если кто-нибудь поможет...

[klem4]

ну вот тебе первая задача, остальные по аналогии:

uses crt;

var
  n, s, value, pred_value: Integer;

begin
  clrscr;

  repeat
    write('n = '); readln(n);
    if odd(n) then writeln('n должно быть четным');
  until not odd(n);

  s := 0;

  write('x[', n, '] = '); readln(pred_value);
  dec(n);

  while n > 0 do begin
    write('x[', n, '] = '); readln(value);
    inc(s, value * pred_value);
    pred_value := value;
    dec(n);
  end;

  writeln('s = ', s); 

  readln;
end.