PascalABC.NET
begin
var s := ReadlnString;
var i := Length(s) div 2;
Write('Символ "', s[i], '"')
end.
