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

//PascalABC.NET 3.1 сборка 1200begin  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.