uses crt;
var dl,ch,n:integer;
    text,text1:string;
    label 1;
begin
 clrscr;
 writeln('Введите текст');
 readln(text);
 dl:=length(text);
 n:=pos(' ',text);
 1:if n>0 then
 begin
  Delete(text,n,1);
  insert('.',text,n);
  dl:=length(text);
  if dl>0 then
  begin
   n:=pos(' ',text);
   goto 1;
  end
 end;
 writeln(text);
end.