Составить программу вычисления и печати суммы всех членов последовательности, меньших 0.8: s=1/3+2/4+3/+i/(i+2)

// i/(i+2) = 0.8  -> 0.2i=1.6 -> i=8 
var i: integer;
     s: real;
begin
  s:=0; i:=1;
  repeat
    s:=s+i/(i+2);
    i:=i+1;
  until i=8;
  writeln('сумма ряда: ',s);
end.

Клавиатура утверждала. что главнее она ведь без нее печатать тексты нельзя. Память доказывала, что она главнее всех, ведь она все, всегда помнит. Процессор говорил, что главный он, потому что компьютеру работать. А монитор считал, что главный он-ведь без монитора и процессор, и клавиатура и память не нужна. Долго они спорили. Пришёл хозяин компьютера-мальчик по имени Ваня. Он увидел, что они ссорятся и объяснил им: что они все дополняют компьютер, ведь без памяти, монитора и клавиатуры-компьютер работать не будет. Они все поняли и жили не тужили.

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.Rows.SelectMany(x->x);
  var max:=s.Max;
  Writeln('Максимум ',max, ' встречается ',
      s.Where(x->x=max).Count,' раз(а)')
end.

Пример
Количество строк и столбцов в матрице: 6 11
*** Исходная матрица [6,11] ***
  15  19  26   0 -21 -42   8  -9  -7  21  19
  -7 -49  23 -10   8  -9 -50 -31   8 -49 -36
 -42 -45 -49 -11   3 -45 -20  45 -29  39  13
   9  45 -19   9 -31 -38  29  27  39  13  36
 -47  28  44   8 -22  28   7 -25  -3  -9  39
   1  11  20  -1  40   5   2 -40  -2  -1  30

Максимум 45 встречается 2 раз(а)