Программирование с использованием подпрограмм и модулей - Pascal ABC

Формулировка задачи:

Создать программу для расчета суммы из х первых натуральных чисел . Результат имеет исчисляться в подпрограмме с использованием цикла с предусловием.

Решение задачи: «Программирование с использованием подпрограмм и модулей»

Листинг программы

program pr;
var
  x: integer;
  sum: longint;
function summ(n: integer): longint;       // подпрограмма подсчёта 
var
  i: integer;
  s: longint;
begin
  i := 1;
  s := 0;
  while i <= n do
  begin
    s := s + i;
    i := i + 1;
  end;
  summ := s;
end;
begin
  writeln('Введите число x');
  readln(x);
  sum := summ(x);
  writeln('Сумма равна: ', sum);
end.

Объяснение кода листинга программы

В программе объявлены две переменные: x и sum.
Задается задача подсчета суммы чисел от 1 до n с помощью подпрограммы summ.
Определяется функция summ, которая принимает один аргумент n и возвращает сумму чисел от 1 до n.
В функции summ объявляются две переменные: i и s.
Задается начальное значение i = 1 и s = 0.
Запускается цикл while i <= n, где n - аргумент функции summ.
Внутри цикла значение переменной i увеличивается на 1, а значение переменной s увеличивается на i и сохраняется в переменной s.
После завершения цикла значение переменной s сохраняется в переменной summ и возвращается из функции.
В основной части программы запрашивается число x, для которого нужно вычислить сумму.
Число x записывается в переменную x.
Вызывается подпрограмма summ с аргументом x для вычисления суммы.
Результат вычисления суммы сохраняется в переменной sum.
Выводится сообщение с результатом вычисления суммы.