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

// PascalABC.NET 3.0, сборка 1111 var   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.