Найти сумму всех вводных чмсел от F до 8 помоги плиз)

Question

Найти сумму всех вводных чмсел от F до 8 помоги плиз)

Answer 1

//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.