Кто чем может! решите и напишитте любую из эти программ, можно две! ! плохо разбираюсь в инфе; ( найти длину отрезка в метрах. на числовой оси расположены три точки а, b, c. определить, какая из двух последних точек (b или с) расположена ближе к а, вывести эту точку и ее расстояние от точки а.
var
a, b, c:real;
begin
write('A = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
if abs(A - B )< abs(A - C) then
writeln('точка B расположена ближе к точке А, чем точка С. Расстояние от А до B: ', abs(A - B))
else
if abs(A - B ) > abs(A - C) then
writeln('точка С расположена ближе к точке А, чем точка B. Расстояние от А до С: ', abs(A - C))
else
writeln('Точки B и C находятся на одинковом расстоянии от точки А равном: ', abs(A - C));
end.