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

Var n,i,b:integer;beginreadln(n,i,b);if(ngt;=i)and(ngt;=b)and(igt;=b)then writeln(n,i,b); if(nlt;=i)and(nlt;=b)and(ilt;=b)then writeln(b,i,n);if(ngt;=i)and(nlt;=b)and(ilt;=b)then writeln(b,n,i);if(nlt;=i)and(ngt;=b)and(igt;=b)then writeln(i,n,b);if(ngt;=i)and(ngt;=b)and(ilt;=b)then  writeln(n,b,i);if(nlt;=i)and(nlt;=b)and(igt;=b)then  writeln(i,b,n);end.