написать программу вычисления суммы натуральных чисел от 1 до n
Turbo Pascal

var  i,n,s:integer;begin  write('N=');    readln(n);  s:=0;  for i:=1 to n do    s:=s+i;  writeln('Сумма:',s);end.