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

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.

а)400*2,5=1000кб

б)64: 2,5=25,6=25(страниц)

в)нужен диск cd-r ,cd-rw