PascalABC.NET
begin
var (a, b) :=
ReadInteger2('Укажите координаты начала и конца отрезка:');
var x := ReadInteger('Укажите координату точки А:');
if x.InRange(a, b) then
Println('Точка принадлежит отрезку')
else
Println('Точка не принадлежит отрезку')
end.
PascalABC.NET
begin
var (a, b) :=
ReadInteger2('Укажите координаты начала и конца отрезка:');
var x := ReadInteger('Укажите координату точки А:');
if x.InRange(a, b) then
Println('Точка принадлежит отрезку')
else
Println('Точка не принадлежит отрезку')
end.