НИ Никита Иванов а где определен max в 9 строке, программа жуткая, write(' vvesti a, b, c, d --> '); readln(a,b,c,d);