Program z567;

 Var s_1,s_2:string; l,l_1:integer;

Begin

 write('Введите 1-ое слово - '); readln(s_1);

 write('Введите 2-ое слово - '); readln(s_2);

 if (s_1.Length > s_2.Length) then writeln(s_1)

                              else writeln(s_2);

End.