Ответ:

Объяснение:

program noname;

uses Crt;

var a,b,c,ab,ac:Real;

begin

ClrScr;

Writeln('Введите координату точки A:');

Readln(a);

Writeln('Введите координату точки B:');

Readln(b);

Writeln('Введите координату точки C:');

Readln(c);

ab:=abs(a-b);

ac:=abs(a-c);

if ab<ac then Writeln('Точка В ближе к А,ab=',ab:0:2) else

if ac<ab then Writeln('Точка C ближе к А,ac=',ac:0:2) else

if ab=ac then Writeln('Точки B и C равноудалены от А.');

Readln;

end.