Найти произведение всех целых чисел от C до Dв паскале

Question

Найти произведение всех целых чисел от C до D
в паскале

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (c,d):=ReadInteger2('C,D=');
  Writeln('П = ',Range(c,d).Aggregate(BigInteger(1),(i,j)->i*j))
end.

Пример
C,D= 23 42
П = 1250004633476421848894668800000

Answer 2

Programm abc;
var c,d,i,p:integer;
begin
read (c,d);
p:=0;
for i:=c to d do
p:=p+i;
writeln(p);
end.