Ответ Автор - krosh1721 Ответ:var s,s1: string; begin readln(s); readln(s1); if length(s)> length(s1) then write(s) else write(s1); end.