Получить сумму всех чисел от 1 до n. С помощью циклической программы.

uses crt;

var i,n,s:integer;

begin

read(n);

s := 0;

for i := 1 to n do begin

s := s + i;

end;

writeln(s);

end.