Найти произведения всех вводных от 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.