// PascalABC.NET 3.2, сборка 1417 от 28.03.2017// Внимание! Если программа не работает, обновите версию!begin var a:=ReadAllLines('Pushkin.txt'); Writeln('*** Текст в файле ***',NewLine); a.Println(NewLine); var n:=a.Select(s->s.ToWords.Count).Where(k->k>0).Min; a:=ReadLines('Pushkin.txt').Where(s->s.ToWords.Count=n).ToArray; WriteLines('Result.txt',a); Writeln(NewLine,'*** Новый файл ***',NewLine); ReadLines('Result.txt').Println(NewLine)end.
Пример:*** Текст в файле ***Если жизнь тебя обманет,Не печалься, не сердись!В день уныния смирись:День веселья, верь, настанет.Сердце в будущем живет;Настоящее уныло:Всё мгновенно, всё пройдет;Что пройдет, то будет мило. (А.С. Пушкин, 1825)*** Новый файл ***Настоящее уныло: