Как составить на языке Паскаль программу вычисления суммы всех естественных чисел,

var
  i, n, s : integer; // объявляем три переменных целочисленного типа.
begin
  writeln(Введите естественное число: );  // выводим на экран текстовую строчку.
  readln(n); // записываем введенное с клавиатуры в переменную  n.
  for i := 1 to n do  // начало цикла, с количеством повторений одинаковое числу n.
    begin
       s:=s+i; // при каждом шаге цикла добавляем к переменной s значение переменной i.
    end;

writeln(Сумма натуральных чисел от 1 до , n, равна: , s); //выводим на экран строку с ответом.
end.