Program asd;
Var
  n:string;
  i:integer;
Begin
  Writeln('Введите предложение');
  Readln(n);
  For i:=1 to length(n) do
    Begin
    if ((n[i]='к') or (n[i]='К')) and ((n[i+1]='а') or (n[i]='А')) and ((n[i+2]='р') or (n[i]='Р'))
      then begin
      n[i]:='а'; n[i+1]:='к';
      end;
    End;
  Writeln(n);
End.