Получить сумму всех чисел от 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.