function right_krest(r)
    global dol shir
   dol=1; shir=1;
  lt_angle(r);
  dol_shir_polya(r)
  for i=1:shir/2
    r.step('w')
    end
    r.mark
  while r.is_bord('s')==0
    r.step('s')
    r.mark
    end
  while r.is_bord('w')==0
    r.step('w')
    end
    for i=1:(dol/2)
      r.step('n')
      end
      r.mark
    for i=1:shir-1
      r.step('o')
      r.mark
      end
      lt_angle(r);