Найти произведение модулей чисел - PascalABC.NET

Найти произведение модулей чисел от a до b (a и b вводятся с клавиатуры).

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

var p: BigInteger := 1;
 
begin
  for var i := readlninteger('a = ') to readlninteger('b = ') do p *= i;
  p := abs(p);
  writeln('P = ', p)
end.

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

В данном коде происходит следующее:

Объявляется переменная p типа BigInteger и инициализируется значением 1.
Запускается цикл for, который начинается с числа, введенного пользователем при помощи функции readlninteger('a = '), и заканчивается числом, введенным пользователем при помощи функции readlninteger('b = ').
Внутри цикла значение переменной p умножается на текущее значение i.
После окончания цикла значение переменной p приводится к абсолютному значению при помощи функции abs().
Выводится на экран значение переменной p при помощи функции writeln('P = ', p).