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

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.

мощность n=16

n=2^i где i-количество информации в символе

тогда i=4

информационный объем i равен i*k где k - количество символов в тексте

значит i =4*540=2160