Pascal ABC
исправьте пожалуйста
Program z1;
var a,b,c:integer;
begin
write('введите число a=');
readln(a);
write('введите число b=');
readln(b);
write('введите число c=');
readln(c);
if ac than write('не пройдет');
if a>b and ab and a>c than write('не пройдет');

  • if ac then write('не пройдет'); // Между a и c должен быть оператор (= к примеру)
    if a>b and ab and a>c than write('не пройдет'); // В Паскале двойные выражения (неравенства) запрещены, и к тому же a>b должно быть в скобках, после and тоже самое.

    if a=c then write('не пройдет');
    if (a>b) and (ab) and (a>c) then write('не пройдет');

    И еще у вас неправильный алгоритм, должно быть так (для избежания неправильных данных) :
    if a=c then write('не пройдет')
    else
    if (a>b) and (ab) and (a>c) then write('не пройдет');;

    Источник: Личный опыт