var
i:integer;
s:string;
begin
writeln('Vvedite slova razdel probelami');
readln(s);
for i:=1 to length(s) do
if(i=1)or(s[i-1]=' ') then s[i]:=Upcase(s[i]);
writeln('-----');
writeln(s);
end.
var
i:integer;
s:string;
begin
writeln('Vvedite slova razdel probelami');
readln(s);
for i:=1 to length(s) do
if(i=1)or(s[i-1]=' ') then s[i]:=Upcase(s[i]);
writeln('-----');
writeln(s);
end.