program PointOnLine;
var
Ax, Ay, Bx, By, Cx, Cy: Integer;
function IsPointOnLine(Ax, Ay, Bx, By, Cx, Cy: Integer): Boolean;
begin
if (Cx - Ax)*(By - Ay) = (Cy - Ay)*(Bx - Ax) then
IsPointOnLine := true
else
IsPointOnLine := false;
end;
begin
writeln('Enter coordinates of point A:');
readln(Ax, Ay);
writeln('Enter coordinates of point B:');
readln(Bx, By);
writeln('Enter coordinates of point C:');
readln(Cx, Cy);
if IsPointOnLine(Ax, Ay, Bx, By, Cx, Cy) then
writeln('Point A belongs to the line segment BC.')
else
writeln('Point A does not belong to the line segment BC.');
end.

Программа сначала запрашивает координаты точек А, B и C, затем вызывает функцию IsPointOnLine, которая проверяет принадлежность точки A отрезку BC. Результат проверки выводится на экран.