// PascalABC.NET 3.2, сборка 1449 от 23.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllLines(input.txt);
var i:=a.Select(s->s.Length).ToArray.IndexMax;
WriteLines(output.txt,Seq(a[i]))
end.
Программе совершенно неважно, сколько и каких строк записано во входном файле input.txt
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.