Var s1,s2:string;
begin
readln(s1);
readln(s2);
if length(s1)>=length(s2) then writeln(s1)
else writeln(s2);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.