program z16_28;
var
a:text;
c:char;i,k:integer;
begin
assign(a,'h:\work\a.txt');
rewrite(a);
for i:=1 to 1000 do
write(a,i); close(a);
reset(a);
k:=1;
while k<=2000 do begin
read(a,c); k:=k+1;end;
writeln(c);
end.