DTIEN PASCAL

var n:longint;
begin
    assign(input,'dtien.inp');reset(input);
    assign(output,'dtien.out');rewrite(output);
    readln(n);
    while n>=10 do
        n:=n div 10;
    writeln(n);
end.