Submission #3010682

Source Code Expand

var
s:string;
x:longint;
begin
readln(s);
read(x);
writeln((s[(x-1) mod length(s)+1]);
end.

Submission Info