Даны три цифры.Вывести самое большое трехзначное число из этих цифр.Паскаль. Дам 25 балов

Var n,i,b:integer;beginreadln(n,i,b);if(n>=i)and(n>=b)and(i>=b)then writeln(n,i,b); if(n<=i)and(n<=b)and(i<=b)then writeln(b,i,n);if(n>=i)and(n<=b)and(i<=b)then writeln(b,n,i);if(n<=i)and(n>=b)and(i>=b)then writeln(i,n,b);if(n>=i)and(n>=b)and(i<=b)then  writeln(n,b,i);if(n<=i)and(n<=b)and(i>=b)then  writeln(i,b,n);end.