Составьте на языке Паскаль программу вычисления суммы всех…

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