Найти максимальное допустимое количество людей, живущих в i-й комнате - Free Pascal

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

Помогите решить задачу: Недавно Юра поступил в БГУКП (Берляндский Государственный Университет Крутых Программистов). У Юры есть друг Леша, который поступил вместе с ним, и теперь они заселяются в общежитие. Юра и Леша хотят жить в одной комнате. Всего в общежитии есть n комнат. В данный момент в комнате с номером i живут pi человек, когда всего в этой комнате может жить qi человек (pi ≤ qi). Посчитайте, сколько комнат общежития смогут вместить Юру и Лешу вместе?

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

В первой строке содержится единственное целое число n (1 ≤ n ≤ 100) — количество комнат. В i-й из n последующих строк содержатся два целых числа pi и qi (0 ≤ pi ≤ qi ≤ 100) — количество людей, которые уже живут в комнате, и максимальное допустимое количество людей, живущих в i-й комнате.

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

Выведите одно целое число — количество комнат, в которые Юра с Лешей могут заселиться.

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

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

3 1 1 2 2 3 3

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

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

3 1 10 0 10 10 10

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

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

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

var i, n, p, q: Integer;
begin
  ReadLn(i); {n:=0;}
  for i:=1 to i do begin
    ReadLn(p,q); if q-p>=2 then Inc(n);
  end;
  WriteLn(n);
end.

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

В начале объявляются четыре переменные: i, n, p, q типа Integer.
Далее происходит чтение значения переменной i с помощью функции ReadLn.
Затем начинается цикл for, который выполняется от 1 до i.
Внутри цикла происходит чтение двух значений: p и q с помощью функции ReadLn.
Если q-p больше или равно 2, то к переменной n прибавляется 1.
После окончания цикла выводится значение переменной n с помощью функции WriteLn.