 нур101 
                                                10.03.2022 02:28
                                                
                                                нур101 
                                                10.03.2022 02:28
                                             Sulaiman00 
                                                10.03.2022 02:18
                                                
                                                Sulaiman00 
                                                10.03.2022 02:18
                                             Сергей102007 
                                                10.03.2022 02:12
                                                
                                                Сергей102007 
                                                10.03.2022 02:12
                                             albina0101011 
                                                10.03.2022 02:03
                                                
                                                albina0101011 
                                                10.03.2022 02:03
                                             3586460 
                                                10.03.2022 01:39
                                                
                                                3586460 
                                                10.03.2022 01:39
                                             almaz20004 
                                                10.03.2022 01:35
                                                
                                                almaz20004 
                                                10.03.2022 01:35
                                             eiljo 
                                                10.03.2022 01:23
                                                
                                                eiljo 
                                                10.03.2022 01:23
                                             svetik10987 
                                                10.03.2022 01:07
                                                
                                                svetik10987 
                                                10.03.2022 01:07
                                             artemonimus 
                                                10.03.2022 00:37
                                                
                                                artemonimus 
                                                10.03.2022 00:37
                                            
PascalABC.NET
begin
var (a, b) :=
ReadInteger2('Укажите координаты начала и конца отрезка:');
var x := ReadInteger('Укажите координату точки А:');
if x.InRange(a, b) then
Println('Точка принадлежит отрезку')
else
Println('Точка не принадлежит отрезку')
end.