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

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.