Программирование на Pascal

 program SelectMWords; 
var 
  i: integer; 
  words: array[1..12] of string; 
  mWords: string; 
 
begin 
  for i := 1 to 12do 
readln(words[i]); 
 
  for i := 1 to 12 do 
    if words[i][1] = 'M' then 
      mWords := mWords + words[i] + ' '; 
 
  writeln(mWords); 
end.