TOMMY

задача 4

var
stroka:string;
symbol:char;
a:byte;
begin
read(stroka);
readln;
read(symbol);
for a:=1 to Length(stroka) do begin
if stroka[a]='.' then stroka[a]:='!';
if stroka[a]=symbol then stroka[a]:=' ';
end;
writeln(stroka);
end.