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

// 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.

Program menu; uses  crt; var  m, i: integer;   n, z, x, b: longint; begin  writeln('выберете пункт меню: ');   writeln('[1]вычисление суммы цыфр числа n');   writeln('[2]вывод на экран таблицы квадратов первого десятка');   writeln('[3]дано число n. определить его четность');   writeln('[4]выход');   read(m);       case m of    1:                   begin            clrscr;             writeln('введите число n: ');             read(n);               x : = 10;               z : = n mod x;               while n div x > 0 do              begin              b : = x;                 x : = x * 10;                 z : = z + n mod x div b;               end;               writeln('ответ: ', z);               end;         2:               begin            clrscr;             for i : = 1 to 10 do            begin              writeln('квадрат ', i, ' = ', sqr(i));             end;           end;           3:       begin              clrscr;               writeln('введите число n: ');               read(n);               if (n mod 2 ) = 0 then writeln('число ', n, ' четное.') else writeln('число ', n, ' не четное.');             end;           4: exit;   end;     end.