Введите, какое значение примет переменная i, по завершению программы:
Var N,i,S: integer;
Begin
Write('N='); readln(N);
S:=0; i:=1;
Repeat
S:=S+i;
i:=i+1;
Until i знак больше N;
Writeln('S=', S);
End.