Răspuns:
program aparitii_ma;
var s:string;
n,i,ap:integer;
begin
write('Dati sirul de caractere: ');read(s);
n:=length(s);
ap:=0;
for i:=1 to n-1 do
if (s[i]='m')and(s[i+1]='a') then inc(ap);
writeln('nr. de aparitii a silabei ma este ',ap);
end.
Explicație:
Se caută ma, care e diferită de Ma sau MA