PascalABC.NET
begin
var (a,b) := ReadInteger2('Введите a и b, где a < b:');
Assert(a<b);
Range(a,b).Average.Println
end.
PascalABC.NET
begin
var (a,b) := ReadInteger2('Введите a и b, где a < b:');
Assert(a<b);
Range(a,b).Average.Println
end.