На целочисленной прямой произвольно заданы четыре точки A, B, C, D.

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a,b,c,d:integer;
  Write('Введите через пробел значения a,b,c,d: ');
  Read(a,b,c,d);
  if agt;b then Swap(a,b); if cgt;d then Swap(c,d);
  var ab:=Range(a,b); var cd:=Range(c,d);
  var n:=ab.Intersect(cd).Count;
  Write('Количество целых чисел одинаково ',n)
end.

Пример
Введите через пробел значения a,b,c,d: 3 10 12 5
Количество целых чисел равно 6