РКН перевод из pascal в c++

[neoshii]

Помогите пожалуйста перевести из pascal в c++ (Спасибо за ранее)

var I, S:integer;
begin
I:=1;
S:=1;
while S<=100 do
begin
I:=I+1;
S:=S*2+I;
end;
Writeln(I)
end.

 

[nerusru]

int main()
{
    int l,S;
    l = 1;
    S = 1;
    while(S<=100){

        l = l + 1;
        S = S * 2 + l;
    }
    cout << l << endl;
}

Вроде вот так

 

[neoshii]

int main()
{
    int l,S;
    l = 1;
    S = 1;
    while(S<=100){

        l = l + 1;
        S = S * 2 + l;
    }
    cout << l << endl;
}

Вроде вот так

спасибо выручиил!