Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3 - Pascal ABC

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

Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3.

Решение задачи: «Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3»

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

program ex;
var a,b,i,sum,t:integer;
 
 
begin
write('Введите границу А: ');
readln(a);
write('Введите границу B: ');
readln(b);
if a > b then
  begin
  t:=a;
  a:=b;
  b:=t;
  end;
  writeln('Количество чисел в промежутке (включая обе границы) = ',b-a+1);
  t:=1;
for i:=a to b do
  begin
  if t mod 3 = 0 then
  sum:= i + sum;
  inc(t); 
  end;
writeln('Сумма чисел стоящих на местах кратных 3 = ',sum);
end.

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

В программе объявлены переменные a, b, i, sum, t типа integer.
Пользователю предлагается ввести границы промежутка [a, b].
Если границы заданы корректно (т.е. a < b), то переменная t присваивается значение a, а переменные a и b обновляются, чтобы они указывали на границы промежутка [b, t].
Выводится количество чисел в промежутке [a, b], включая границы.
Переменная t инициализируется значением 1.
В цикле for перебираются числа от a до b.
Если текущее число (i) кратно 3 (т.е. i % 3 = 0), то к сумме (sum) прибавляется значение i.
Переменная t увеличивается на 1.
По завершении цикла выводится сумма чисел, стоящих на местах, кратных 3.