Uses Crt;
Var S: String;    k: Integer;

    begin
      ClrScr;
      Write('S='); Readln(S);
      For k:=1 To Length
      (S) Do
      If S[k]='?' Then S[k]:='!';
      Writeln('new S=',S); Readln;
      Readln;
End.