CLS

PRINT "Oбозначьте  символами <  > развернувшихся и не развернувшихся новобранцев "
INPUT "", q$
c$ = q$
FOR n = 1 TO LEN(q$) - 1
  IF MID$(c$, n, 1) = "<" AND MID$(c$, n + 1, 1) = ">" THEN
     MID$(q$, n, 1) = "<": MID$(q$, n + 1, 1) = ">"
  END IF
NEXT
OPEN "h:\output.txt" FOR INPUT AS #1
   PRINT #1, c
CLOSE #1
OPEN "h:\output.txt" FOR OUTPUT AS #1
  DO UNTIL EOF(1)
   INPUT #1, c
   PRINT c
  LOOP
q$ = q$ + c$
CLOSE #1

SYSTEM