Введите, что появится на экране (позавершению программы), если значение 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.

N=15S=0для i от 1 до 15 выполнить S=S+ii=1     S=1i=2    S=3i=3    S=6i=4    S=10i=5    S=15i=6    S=21i=7    S=28i=8    S=36i=9    S=45i=10   S=55i=11    S=66i=12   S=78i=13   S=91i=14   S=105i=15   S=120Ответ: S=120