Вычислить сумму: s = 1 + 2 + 3 + ... + n, если значение n задано, не применяя формулу суммы членов арифметической прогрессии. 3 способа.
можно и один способ, но желательно все 3.
Заранее спасибо!

1.var n,s,i:integer;beginwrite('n='); readln(n);s:=0;for i:=1 to n do s:=s+i;writeln('s=',s);end.2.var n,s,i:integer;beginwrite('n='); readln(n);s:=0; i:=0;while i<n do  begin i:=i+1; s:=s+i; end;writeln('s=',s);end.3.var n,s,i:integer;beginwrite('n='); readln(n);s:=0; i:=0;repeat  i:=i+1; s:=s+i;  until i=n;writeln('s=',s);end.Пример:n=5s=15