Составит программу нахождения суммы натуральных чисел от 1-100

Var
  i, sum : integer;
begin
  sum := 0;
  for i := 1 to 100 do sum := sum + i;
  writeln (sum);
end.