Var  i,j,x,y: Integer; s: String;
Begin
   Write('Nhap doan van can chuan hoa: '); Readln(s);
   while s[1]= ' ' do delete(s,1,1); while s[length(s)] = ' ' do delete(s,length(s),1); i:=1;
   If length(s) > 2 Then
       repeat
           if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1)
           else i:=i+1;
           x:=ord(s[i]);
           if ((x=46) or (x=44) or (x=63) or (x=33) or (x=58) or (x=59)) and (s[i-1]=' ') then delete(s,i-1,1);
       until i=(length(s)-1);
   if s[length(s)-1]=' ' then delete(s,length(s)-1,1);
   s[1]:=upcase(s[1]);
   for i:=1 to length(s)-2 do
       if (ord(s[i])=46) or (ord(s[i])=63) or (ord(s[i])=33) or (ord(s[i])=58) or (ord(s[i])=59) then s[i+2]:=upcase(s[i+2]);
   Write('Sau khi chuan hoa duoc: ',s);
   Readln;
End.