Найти сумму натуральных чисел, предшествующих заданному числу а - Pascal ABC

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

Найти сумму натуральных чисел, предшествующих заданному числу а. Найти сумму натуральных чисел, предшествующих числу b. Проверить какое из них кратно числу p. Нахождение суммы оформить в виде подпрограммы

Решение задачи: «Найти сумму натуральных чисел, предшествующих заданному числу а»

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

program pr;
var
  a, b, p, s1, s2: integer;
function summ(const n: integer): integer;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 1 to n do
  begin
    sum := sum + i;
  end;
  summ := sum;
end;
begin
  writeln('Введите a');
  readln(a);
  writeln('Введите b');
  readln(b);
  writeln('Введите р');
  readln(p);
  s1 := summ(a);
  s2 := summ(b);
  writeln('Сумма чисел предшествующих ', a, ' : ', s1);
  writeln('Сумма чисел предшествующих ', b, ' : ', s2);
  if s1 mod p = 0 then
    writeln('Сумма чисел ( ',s1,' ) предшествующих ', a, ' кратно ', p);
  if s2 mod p = 0 then
    writeln('Сумма чисел ( ',s2,' ) предшествующих ', b, ' кратно ', p);
end.

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

Программа начинается с объявления переменных a, b, p и s1, s2: integer; Затем следует функция summ(const n: integer), которая использует вложенный цикл for для суммирования чисел от 1 до n. Значение суммы присваивается переменной sum, а затем функции возвращается это значение. Далее идет основной блок программы, который включает чтение значений a, b и p с помощью функции readln. Затем вызываются функции summ(a) и summ(b) для вычисления суммы чисел предшествующих a и b соответственно. Результаты выводятся на экран с помощью функции writeln. Если сумма чисел предшествующих a или b кратна p, то выводится соответствующее сообщение.