Ответ:

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.

Объяснение:

Кажется, я что-то подобное уже сегодня решал.

sums = 0

for i in range(35,80):

   sums += i

print(sums)