Даны три различных целых числа. Определить какое из них (первое,второе, третье) а)самое маленькоеб) является средним(средним назовем число которое больше нам меньшего из данных чисел,но меньше наибольшего)

По моему так: program p; var a,b,c:integer; begin writeln('первое число:'); readln(a); writeln('второе число:'); readln(b); writeln('третие число:'); readln(c); if (a>b) and (a>c) then writeln('Первое число является наибольшим'); if (a>b) and (ac) then writeln('Первое число является средним'); if (aa) and (b>c) then writeln('Второе число является наибольшим'); if (b>a) and (bc) then writeln('Второе число является средним'); if (bb) and (c>a) then writeln('Третие число является наибольшим'); if (c>b) and (ca) then writeln('Третие число является средним'); if (c