Дан список М предметов. Выбрать предметы, начинающиеся на «му» и заканчивающиеся на «а».
// 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.