Question

Даны два целых числа А и В(А меньше В).Найти среднее арифметическое всех целых чисел от А до В включительно.

Answer 1

                                          PascalABC.NET

begin

 var (a,b) := ReadInteger2('Введите a и b, где a < b:');

 Assert(a<b);

 Range(a,b).Average.Println

end.