Ответ:
// PascalABC.Net v.3.2, сборка 1325 (19.10.2016)
Var s:string;i:longint;
Begin
readln(s);
readln(i);
writeln(s[i]);
End.
Объяснение:
s - строка
i - целое число
Формат вывода: s[i] - i-тый символ строки s
Пример ввода: string
2
Пример вывода: t