Найти количество чисел, кратных данному, в заданном диапазоне Опции

[Сергио де ла Бриз]

Есть задание: решить задачу с помощью програмы для програмирования "Паскаль". НО ни языка програмирования, ни елементарных вещей я не знаю
Итак условие!!!
Входные файлы:
В первом ряде входного файла записано три целых числа А, В, С. (-1000000<=A,B<=1000000), (1 меньше или равно С меньше или равно 1000) А,В - границы интервала на котором необходимо вычеслить количество чисел которые делаться на цело на число С. Все числа целые.
Выходные файлы:
Во входной файл необходимо записать одно число. Которое джолжно отображать количество чисел на интервале [A,B] которые делаться на С без остачи.

[Lapp]

Вот тебе полное решение. Надеюсь, ты с ним разберешься. Если что неясно - спрашивай, я объясню.
Только замечу: в условии ты говорил про _интервал_, но обозначал как отрезок (квадратные скобки). Это решение - для _отрезка_ (то есть, границы включены).

var
  a,b,c,d: longint;
  f: text;

begin
  assign(f, 'in.txt');
  reset(f);
  readln(f,a,b,c);
  close(f);
  if a>b then begin
    d:= a;
    a:= b;
    b:= d
  end;
  if a<1 then begin
    d:= (1-a div c)*c;
    a:= a+d;
    b:= b+d
  end;
  assign(f,'out.txt');
  rewrite(f);
  writeln(f,b div c - (a-1) div c);
  close(f)
end.