15 БАЛЛОВ. Произведение чисел:Помогите составить код, который будет САМ множить все

Пожалуй, у тебя вернее))

A,b = int(input(Изначальное число: )), int(input(Конечное число: )) 
s = 1 
for i in range(a,b+1): s *= i 
print(s)

1. PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программка не работает, обновите версию!

begin
  var (a,b):=ReadInteger2;
  Range(a,b).Aggregate(Biginteger(1),(p,q)-gt;p*q).Println
end.

Результат показан во вложении 1. Великое число вышло)))

2. Free Pascal

program ideone;

var
  a,b,i:integer;
  p:extended;

begin
  Read(a,b);
  p:=1;
  for i:=a to b do p:=p*i;
  Writeln(p)
end.

Итог приведен во вложении 2.
К раскаянию, на промежутке данных [1;2018] в этой версии Паскаля недостаточно спектра значений представляемого результата и было вычислено творенье на [1;1000]. Для [1;2018] выводится Inf - машинная бесконечность.