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

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

begin
  var i:=1;
  var s:=0.0;
  while true do begin
    var t:=i/(i+2);
    if tgt;=0.8 then break;
    s+=t; i+=1
    end;
  Writeln(s=,s)
end.

Результат
s=4.34206349206349

#include lt;iostreamgt;

using namepspace std;

int main() {
  for(int i = 1, s = 0; (i/i+2) lt; 0.8; s+=(i/i+2), i++);
  cout lt;lt; s lt;lt; endl;
}