Составьте на языке Паскаль программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Построить трассировочную таблицу.

Program Summa; Uses Crt; var n,s,i:longint; begin      clrscr;      write('Введите n: ');      readln(n);       s:=0;       for i:=1 to n do s:=s+i;        writeln('Сумма всех чисел от 1 до  ',n,'=',s);     readkey;    end.      Таблица для n=5           s       n     i            0       5      -    1       5     1        3       5     2     6       5     3      10    5      4     15    5      5