program PascalGuru;
 
var s :string;
    i :integer;
begin
writeln('Vvedite stroky:');
read(s);
writeln('Isxodnaya stroka: ',s);
 
s[1]:=UpCase(s[1]);
for i:=3 to length(s) do
    if (s[i-1]=' ') and (s[i]<>' ') then s[i]:=UpCase(s[i]);
 
writeln('Preobrazovannaya stroka: ',s);
 
readln;readln;
end.