Program Example_2;
Var i,n:integer;
St:string;
Begin
Write ('Введіть текст: ');
readln(St);
n:=length(St);
for i:=1 to n do begin
if St[i]='.' then St[i]:='...';
if St[i]=':' then St[i]:='-';
end;
writeln(St);
end.