uses crt; var st : string; i,d : integer; begin d:=0; write('Nhap xau ki tu :'); readln(st); for i:=1 to length(st) do if st[i]='m' then d:=d+1; write('Co ',d,' ki tu m'); for i:=1 to length(st) do if st[i]='M' then st[i]:='C'; write(st); readln end.
