uses crt;
var a : array[1..100] of string;
n, i, m, k, l, dem, dem1 : byte;
s, s1, s2, s3 : string;
begin
clrscr;
s1 := ','; dem := 0; dem1 := 0; s2 := '';
write('nhap so luong test case : ') ; readln(n);
for i := 1 to n do readln(a[i]);
for i := 1 to n do 
begin
s := a[i];
for m := 1 to length(s) do
s[m] := lowercase(s[m]);
for m := 1 to length(s) do
if s[m] = ' ' then s[m + 1] := upcase(s[m + 1]) ;
for m := length(s) downto 1 do 
begin
s[m] := upcase(s[m]);
if s[m] = ' ' then 
begin
insert(s1, s, m);
break
end;
end;
s[1] := upcase(s[1]);
for l := 1 to length(s) do
if s[l] = ' ' then 
begin
dem := dem + 1;
if dem = 1 then s2 := s2 + s[l];
end
else 
begin
dem := 0; s2 := s2 + s[l];
end;
for l := 1 to length(s2) do
if s2[l] = ' ' then dem1 := dem1 + 1 else break;
m := length(s2) - dem1;
l := dem1 + 1;
for k := 1 to n do writeln(copy(s2, l, m) );
end;
readln
end.

a=input('input bn oi: ')
a=a.lower()
a=a.title()
a=a.split()
s=', '+a[-1].upper()
a.pop()
a=' '.join(a)
a+=s
print(a)