Требуется ввести n строк с консоли. вывести на консоль те строки, длина которых меньше (больше) средней, а также длину.
входные данные - вводится n строк, длина каждой строки не больше 1000 символов. пустых строк нет.
1 < = n < = 1000
ответ должен содержать все строки, у которых длина больше средней длины всех строк, а также их длину.
begin
var n := ReadlnInteger; // ввод n
var a := ReadArrString(n); // ввод строк
var m := a.Select(p -> p.Length).Average; // средняя длина
Writeln;
a.Where(p -> p.Length > m).Select(p -> $'{p} {p.Length}').PrintLines
end.