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

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.