program zadanie;
var
a,b,c,rast:integer;
begin
Writeln('введите число');readln(a);
Writeln('введите число');readln(b);
Writeln('введите число');readln(c);
If(a-b)<(a-c) then 
begin 
rast:=abs(b-a);
writeln('Результат: Точка В=',B,' ближе к точке А=',A,' чем точка С=',C,' Растояние межде А и В =',rast);
end
Else 
begin 
rast:=abs(b-a); 
writeln('Результат: Точка C=',C,' ближе к точке А=',A,' чем точка B=',B,'Растояние межде A и C =',rast);
end;
end.