исправить ошибки

[Seferus]

program lab2;
var A,B,C:integer;
begin
if (C>B) and (B>A) then B:B-A;
writeln (B);
if (C>B) and (B>A) then 
C:C-A;
B:A-B;
if (C>B) then writeln (B) else writeln (C);
if (B>C) and (C>A) then C:C-A;
writeln (C);
if (B>C) and (A>C) then
B:B-A;
C:A-C;
if C>B then writeln (B) else writeln (B);
if (A>C) and (B>C) then B:A-B;
writeln (B);
if (A>C) and (C>B) then C:A-C;
writeln (C);
end.

что тут не правильно скажите плз

[Alex11223]

А что делаем-то хоть? Видимо вместо : должно быть

[Seferus]

На числовой оси расположены три точки: A, B, C. Определить, какая из двух последних точек (B или C) расположена ближе к A, и вывести эту точку и ее расстояние от точки A.

[Alex11223]

Ну как минимум нету ввода этих самых точек.

Погуглите или поиск на форуме, уже была эта задача много раз.