<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
procedure СредняяЦифра(Число: int64; var Цифра: integer);
begin
var СтроковоеПредставление := Число.ToString;
var ЧислоРазрядов := СтроковоеПредставление.Length;
var ПозицияЦифры := ЧислоРазрядов div 2 + 1;
Цифра := СтроковоеПредставление[ПозицияЦифры].ToDigit
end;
begin
var ЗаданноеЧисло: int64;
Read(ЗаданноеЧисло);
var ИскомаяЦифра: integer;
СредняяЦифра(ЗаданноеЧисло, ИскомаяЦифра);
ИскомаяЦифра.Println
end.
<h2>Пример</h2><h2>123643523</h2><h2>4 </h2>