Составить программу для нахождения произведения целых чисел от 15 до 25

begin
  Writeln(Range(15,25).Aggregate(int64(1),(p,q)->p*q))
end.


177925144320000