Дано трехзначное число а . Составить программу , которая находила бы среднюю цифру введённого числа

Write('Enter number : '); ReadLn(N);
if (N < 100) or (N > 999) then begin WriteLn('Error.'); Halt; end;
WriteLn('Middle digit = ', N div 10 mod 10);