var
x: array of string;
y: string;
begin
readln(y);
x := y.Split( );
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.