Program qq; var M, D: integer;
begin
writeln('Введите номер месяца:');
read ( M );
case M of
2: begin D := 28; end;
4,6,9,11: begin D := 30; end;
1,3,5,7,8,10,12: D := 31;
else D := -1;
end;
if D > 0 then
writeln('В этом месяце ', D, ' дней.')
else
writeln('Неверный номер месяца');
end.
Результат вычислений:

В отличие от многих людей, я отношусь к компьютеру очень позитивно. Это — величайшее изобретение человечества! Люди создали универсальную машину, с которой можно делать сто дел: читать, смотреть кино, рисовать, печатать, чертить, считать, находить полезную информацию, делать ретушь фотографии, создавать мультфильмы и видеоролики. Еще можно общаться с людьми у которых самые разные увлечения, которые живут хоть на другом конце планеты. Не нужно ограничиваться только теми людьми, кто живет в соседнем дворе, и навязывать себе их хобби. Я могу продолжать этот список до конца сочинения, чтобы было понятно, как полезен компьютер. Часто компьютер сравнивают с телевизором и говорят, что они оба крадут у человека время. Но у меня другое мнение. Да, долго сидеть перед компьютером вредно для здоровья и для личности, потому что человек не двигается, портит зрение и не общается с живыми людьми. Но в чем виноват компьютер?! Человек сам крадет у себя время, а не машина. Телевизор не полезен, потому что перед ним человек сидит пассивно. Сидит, пультом клацает, а ему показывают картинку. С компьютером другое дело! С ним все время надо действовать! Даже читать и писать все время приходится. Так даже интереснее, чем торчать у телевизора. А еще компьютер заставляет выбирать самому то, что действительно нужно. Если бы люди не учились выбирать, то перед монитором проводили бы всю жизнь. Компьютер в моей жизни занимает важное место, но я могу подолгу обходиться и без него. Просто надо все время помнить, что компьютер изобрели для того, чтобы облегчить жизнь, а не заменить ее. И чтобы расширить возможности человека, а не сузить их.

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

begin
 var fio:=ReadlnString('Введите Фамилию Имя Отчество->');
 var b:=0;
 for var i:=1 to fio.Length-1 do
  if (fio[i]='М') or (fio[i]='м')
   then b+=1;
 if b<>0 then Println('Буква "М" есть в строке. Она повторяется',b,'раз(а).')    else Println('Буквы "М" нету в строке.');
end.

Пример:
 1)  Введите Фамилию Имя Отчество-> Миг Мария Моисеева
      Буква "М" есть в строке. Она повторяется 3 раз(а). 

 2)  Введите Фамилию Имя Отчество-> Петренко Петр Петрович
      Буквы "М" нету в строке.