Запросить с клавиатуры целое 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.
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.