Найти N-й элемент, сумму N элементов, произведение N элементов и среднее арифметическое N элементов следующего ряда 2/2 4/5 6/10 8/17 10/26 …Все вещественные результаты получить с точностью до ДВУХ десятичных знаков — Pascal(Паскаль)

   ╔══════════════════════════╤═══════╤══════════╤══════╤═════════╗
   ║           N              │   1   │  2       │ 10   │   100   ║
   ╟──────────────────────────┼───────┼──────────┼──────┼─────────╢
   ║  Значение элемента       │   1   │  0.80    │ 0.2  │  0.02   ║
   ╟──────────────────────────┼───────┼──────────┼──────┼─────────╢
   ║  Сумма                   │   1   │  1.80    │ 4.52 │  9.03   ║
   ╟──────────────────────────┼───────┼──────────┼──────┼─────────╢
   ║  Произведение            │   1   │  0.80    │ 0    │  0      ║
   ╟──────────────────────────┼───────┼──────────┼──────┼─────────╢
   ║  Среднее арифм.          │   1   │  0.90    │ 0.45 │  0.09   ║
   ╚══════════════════════════╧═══════╧══════════╧══════╧═════════╝

program 2;
uses crt;
var
  sum , proiz, znach, sredn, b, c : Real;
  i, col, a : Integer;
begin
ClrScr;
     Write('Введите количество элементов :       ');
     ReadLn(col);
     b := 0;
     sum := 0;
     proiz := 1;
     a := 0;
     for i := 1 to col do
      begin
       b := b + 2;
       c := Sqr(i) + 1;
       znach := b / c;
       sum := sum + (b / c);
       proiz := proiz * (b / c);
       Inc(a);
       sredn := (sum / a)
      end;
     WriteLn('Значение элемента равно      : ', znach:10:2);
     WriteLn('Сумма равна                  : ', sum:10:2);
     WriteLn('Произведение равно           : ', proiz:10:2);
     WriteLn('Среднее арифметическое равно : ', sredn:10:2);
     WriteLn;
     Write('Press Enter');
     ReadLn
end.