Запросить с клавиатуры целое 8-значное число начинающее двойкой и напечатать его третью цифру. Если вводится не то число , то сообщить об этом и повторить ввод

// PascalABC.NET 3.0, сборка 1111var  n:longint;  b:boolean;begin  repeat    Write('Введите восьмизначное число, начинающееся с 2: ');    Read(n);    b:=(n>=20000000) and (n<=29999999);    if not b then Writeln('Ввод неверен')  until b;  Writeln('Третья цифра числа равна ', (n div 100000) mod 10)end.