program Z1;
Var a, b, c, ab, ac ; integer;
Begin
Writeln ('Введите координаты А');
Readln (a);
Writeln ('Введите координаты В');
Readln (с);
Writeln ('Введите координаты С');
Readln (c);
ab:= abc (a-b);
ac:= abc (a-c);
if ab Writeln ('расстояние =;ab);
else
ГДЕ ОШИБКА? ОНА ТОЧНО ГДЕ-ТО ЕСТЬ, ПОМОГИТЕ!!!!

Ошибка есть и она не одна.1. Код приведен не полностью - после else должно быть что-то еще и обязательно замыкаться end.2. abc - не такой функции в Паскале, возможно Вы имели в виду abs - абсолютная величина, т.е. модуль.3. if ab then ... это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab>ac then...