помогите кто чем может! решите и напишитте пожалуйста любую из эти программ, можно две!...

Question

помогите кто чем может! решите и напишитте пожалуйста любую из эти программ, можно две! пожалуйста! плохо разбираюсь в инфе;( Найти длину отрезка в метрах. На числовой оси расположены три точки А, B, C. Определить, какая из двух последних точек (B или С) расположена ближе к А, вывести эту точку и ее расстояние от точки А.

Answer 1

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.