найти самую большую цифру трехзначного целого числа
через паскаль, пожалуйста, заранее спасибо

найс решение

VAR n,max:LongInt;BEGIN WriteLn('Введите трехзначное число:'); ReadLn(n); max:=0; Repeat  If (n mod 100)>max then max:=(n mod 100);  n:=n div 100; Until n=0; WriteLn('Самое большое число в трехзначном числе: ',max); Readln;END.