<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var n:=ReadInteger('n=');
Writeln(1.To((n+10) div 2).JoinIntoString('')[n]);
end.
Не понимаю тебя ссори что не помог
Var
l,i:longint;
S:String;
begin
Read(S);
l:=length(S);
For i:=l downto 1 do Write(S[i]);
end.