program LN;
uses crt;
var s,s1:string;
i:integer;
begin
clrscr;
writeln('nhap vao 1 xau bat ki: ');
readln(s);
s[1]:=upcase(s[1]);
for i:= 1 to length(s) do
if s[i] = ' ' then s[i+1]:= upcase(s[i+1]);
write('xau sau khi da chinh sua la: ',s);
readln;
end.