<u>Хорошо, когда задают задачи с решением в одну строчку!</u>
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
Writeln('Количество "МА" равно ',
ReadlnString('>').MatchValues('МА',RegexOptions.IgnoreCase).Count)
end.
<u><em>Тестовое решение</em></u>
> Мама мыла раму. Маша ела мандарины.
Количество "МА" равно 4
Все нули . потому что 00 . 001 и т.п. считаются за 1клб
Пирамида - основание правильный многоугольник, а боковые стороны треугольники
вот такая вот таблица истинности и схема