program chuanhoa;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
while s[1]=' ' then delete(s,1,1);
while s[length(s)]=' ' then delete(s,length(s),1);
while pos(' ',s)<>0 do delete(s,pos(' ',s),1);
s[1]:=upcase(s[1]);
for i:=2 to length(s)-1 do
if s[i]=' ' then s[i+1]:=upcase(s[i+1]);
write(s);
readln;
end.
