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