Написать программу на языке программирования паскаль. дано натуральное число n. найти сумму 1+2+3+4+5+…+n.

Var
  n, s, i: integer;

begin
  write('Число: ');
  readln(n);
  s := 0;
  for i:=1 to n do s:=s+i;
  writeln('Сумма = ', s);
end.

Тестовое решение:
Число: 100
Сумма = 5050