Написать функцию, которая получает два целых числа N и M и возвращает сумму всех целых чисел между ними - Pascal ABC

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

Написать функцию, которая получает два целых числа N и M и возвращает сумму всех целых чисел между этими двумя. Проверить работу функции с помощью отдельной программы

Решение задачи: «Написать функцию, которая получает два целых числа N и M и возвращает сумму всех целых чисел между ними»

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

program pr;
var
n,m,v:integer;
function summa(var x,y:integer):integer;
var
i,summ:integer;
begin
for i:=x+1 to y-1 do
summ+=i;
write(summ);
end;
begin
writeln('Введите 1 число');
readln(n);
writeln('Введите 2 число');
readln(m);
v:=summa(n,m);
end.

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

Создается программа pr с объявлением переменных n, m и v типа integer.
Определяется функция summa, которая принимает две переменные x и y типа integer.
В функции summa создается переменная summ типа integer и инициализируется значением 0.
С помощью цикла for перебираются все числа от x+1 до y-1.
На каждой итерации цикла значение переменной summ увеличивается на текущее значение перебираемого числа.
После завершения цикла выводится значение переменной summ.
В основной части программы выводится запрос на ввод двух чисел, после чего значения этих чисел передаются в функцию summa.
Результат работы функции summa сохраняется в переменной v.
Программа завершается выводом значения переменной v.