Найти произведение всех целых чисел от А до В включительно

program Project1;
var
  a,b: integer;  // Переменные для хранения значения левой и правой границ вычислений.
  mult: integer;  // Переменная для хранения значения произведения.
  i: integer;     // Вспомогательная переменная, которая осуществляет перебор целых чисел.
begin
  repeat
    write('Введите значение целого числа А: ');
    readln(a);
    write('Введите значение целого числа B: ');
    readln(b);
    if a >= b then
      writeln('Число В должно быть больше А.');
  until a < b;
  mult:= 1;
  i:= a;  // Начальное значение аргумента.
  while i <= b do
    begin
      mult:= mult*i;  // Вычисление произведения чисел.
      inc(i);
    end;
  writeln('Произведение всех целых чисел от А до В включительно: ', mult);
  Readln;
end.