Найти сумму всех вводных чмсел от f до 8 )

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