var a, b, c:real;begin write('A = '

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
write ln('точка С расположена ближе к точке А, чем точка B. Расстояние от А до С: ', abs(A - C))
else
write ln('Точки B и C находятся на одинковом расстоянии от точки А равном: ', abs(A - C));
end.

Результаты (русский) 1:

var а, б, тексты;начать записи ('='); readln(a); записи ('B = '); readln(b); записи ('C = '); readln(c); Если abs (A - B) < abs (- C) то writeln ('точка B расположена ближе к точке А, чем точка С. Расстояние от А до B: ', abs (A - B)) остальное Если abs (A - B) > abs (- C) то написать ln ('точка С расположена ближе к точке А, чем точка б. Расстояние от А до С: ', abs (- C)) остальное написать ln ('Точки B и C находятся на одинковом расстоянии от точки А равном: ', abs (- C)); конец.

Результаты (русский) 2:

вар
а, б, в: реальные;
начать
запись ('А ='); ReadLn (а);
написать ("B = '); ReadLn (б);
написать ('C ='); ReadLn (с);
если ABS (А - В) <ABS (А - С), то
WriteLn ('точка B Расположена ближе к точке А, чем точка С. Расстояние от А до Б:', ABS (А - В))
еще, если ABS (A - B)> ABS (А - С), то написать п ('точка С расположена ближе к точке А, чем точка В. Расстояние от А до С:', абс (А - С)) еще записи Л.Н. ("Точки B и C находятся на одинковом расстоянии от точки А равном: ', абс (А - С)); конец.

Результаты (русский) 3:

var
A, B, C: реальное;
начать
писать (A = '); readln (A);
писать ('b ='); readln (b);
писать ('c = '); readln (c); * если абс (A - B) < абс (A - c) тогда
writeln ("экономики обсудят общие тенденции в 1981 г точке сайте к а, чем экономики обсудят общие тенденции с.Расстояние от а до B: "абс (A - B)
еще
если абс (а) - b) > абс (A - C), а затем
писать в (« экономики обсудят общие тенденции с 1981 г точке сайте к а, чем экономики обсудят общие тенденции. Расстояние от а до центра: "абс (A - C)
еще
писать в (« Точки B и C you will на одинковом расстоянии от точки а равном:" абс (A - C);
конец.