Question

Дан список М предметов. Выбрать предметы, начинающиеся на «му» и заканчивающиеся на «а».

Answer 1

// PascalABC.NET 3.6

begin

 var m := ReadlnInteger('M =');

 var L := ReadString('Введите слова через пробел:').ToWords.ToList;

 if L.Count <> m then

   Print('Число предметов не равно', m)

 else

   L.Where(w -> (w[:3] = 'му') and (w.Last = 'а')).Print

end.