Найти произведения всех вводных от K до 6 помогите плиз срочно надо

//PascalABC.NET 3.1 сборка 1200 begin   var k := ReadInteger('k =');   var l := 6;   if k > l then swap(k, l);   Println(Range(k, l).Aggregate(1,(p, x) -> p * x)); end.