Решить по информатике. смысл в ней состоит в том, что нужно вставить буквы в слова. например. n. mes, где точка нужно вставить букву t..l..se, ..n.es, li,,ges, .., .yon, ai..les-.her..s, , .aris

Var i: integer;
  s: string;
 begin
  readln(s);
  for i := 1 to s.Length do
  if(s[i] = '.') then s[i] := 'M';
  writeln(s);
end.