INPUT "vvedite kol-vo strok: ", m
DIM a$(m)
FOR i = 1 TO m
INPUT "vvedite stroku: "; a$(i)
NEXT
INPUT "vvedite slog: ", b$
n = LEN(b$)
PRINT "stroki bez sloga"
FOR i = 1 TO m
DO
c = INSTR(a$(i), b$)
IF c <> 0 THEN a$(i) = MID$(a$(i), 1, c - 1) + MID$(a$(i), c + n)
LOOP UNTIL c = 0
PRINT a$(i)
NEXT