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...