Найдите, какое количество лет Васе еще нужно служить в армии Берляндии - Free Pascal

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

Помогите решить задачу: Система Вооруженных Сил Берляндии состоит из n званий, которые пронумерованы натуральными числами от 1 до n, где 1 — самое младшее звание, а n — самое старшее. Чтобы дослужиться от звания номер i до звания номер i + 1, требуется ровно di лет. Получить некоторое звание i, не получив до этого все предыдущие i - 1 званий, невозможно. Буквально только что Вася получил новое звание a, но он мечтает служить в звании b. Найдите, какое количество лет Васе еще нужно служить в армии Берляндии, чтобы осуществить свою мечту.

Входные данные

В первой строке входных данных находится целое число n (2 ≤ n ≤ 100). Во второй строке находятся n - 1 целых чисел di (1 ≤ di ≤ 100). В третьей строке входного файла находятся два целых числа a и b (1 ≤ a < b ≤ n). Числа в строках разделены пробелами.

Выходные данные

Выведите единственное число — количество лет, которое потребуется Васе, чтобы дослужиться от звания a до звания b.

Примеры тестов

входные данные

3 5 6 1 2

выходные данные

входные данные

3 5 6 1 3

выходные данные

Решение задачи: «Найдите, какое количество лет Васе еще нужно служить в армии Берляндии»

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

var
  d: array [2..100] of Integer;
  n, a, b, s: Integer;
begin
  ReadLn(n);
  for a:=2 to n do Read(d[a]); ReadLn;
  ReadLn(a,b); {s:=0;}
  for a:=a+1 to b do s:=s+d[a];
  WriteLn(s);
end.

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

Объявлены следующие переменные:
- d: массив из 100 целых чисел, инициализированных нулями.
- n, a, b, s: целочисленные переменные, инициализированные нулями.
Пользователю предлагается ввести количество элементов массива (n).
Пользователь вводит n элементов массива d.
Пользователю предлагается ввести два целых числа (a и b), которые определяют диапазон для суммы элементов массива.
Переменная s инициализируется как сумма элементов массива d, начиная с индекса a и заканчивая b.
Выводится значение переменной s.