// 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 t>=0.8 then break;
    s+=t; i+=1
    end;
  Writeln('s=',s)
end.

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

#include

using namepspace std;

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