var len, maxlen : longint; s, ss : string; begin maxlen := 0; while true do begin readln(ss); len := length(ss); if ss[1] = '#' then break; if len > maxlen then begin s := ss; maxlen := len; end; end; writeln(s); end.
输入：
I
am
a
citizen
of
China
#
输出：1
