q200319915

var f1, f2: text;
    i: integer;
    temp: string;
    k: char;

const A = 'паровоз';
      B = 'пароход';

begin
  Assign(f1, 'input.txt');
  Reset(f1);

  Assign(f2, 'output.txt');
  Rewrite(f2);

  i := 1;
  temp := '';
  repeat
    read(f1, k);
    if (k = A[i]) then
    begin
      temp := temp + k;
      i := i + 1;
      if (i > Length(A)) then
      begin
        write(f2, B);
        i := 1;
        temp := '';
      end;
    end else begin
      if (i > 1) then begin
        write(f2, temp);
        i := 1;
        temp := '';
      end;
      write(f2, k);
    end;
  until (Eof(f1));

  Close(f1);
  Close(f2);
end.