program ho_ten;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap ho va ten: '); readln(s);
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32);
s[1]:=upcase(s[1]);
for i:=2 to length(s)-1 do
if s[i]=' ' then s[i+1]:=upcase(s[i+1]);
writeln('a. ',s);
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
writeln('b. ',s);
readln;
end.
