uses crt;
var ba, me : string ;
dba, dme , i : byte ;
 begin
clrscr;
write('Nhap ten Ba: ');
readln(ba);
write('Nhap ten me: ');
readln(me);
writeln('Ten ba ban la: ',ba);
 writeln('Ten me ban la: ',me);
if length(ba)>length(me) then writeln('Ten ba ban dai hon, sau khi in hoa, ten ba ban la: ',upcase(ba));
if length(ba)<length(me) then writeln('Ten me ban dai hon, sau khi in hoa, ten me ban la: ',upcase(me))
 else writeln('Ten ba ban sau khi in hoa la ',upcase(ba),' , ten me ban sau khi in hoa la: ',upcase(me));
for i:= 1 to length(me) do
if me[i]='N' then dme := dme + 1 ;
 writeln('Trong ten me ban co so ky tu "N" la: ',dme);
 for i:=1 to length(ba) do
if (ba[i]='N') and ((ba[i+1])='a') and ((ba[i+2])='m')
then dba := dba + 1 ;
writeln('TRong ten ba ban co so ky tu "Nam" la: ',dba);
end.