CLS PRINT INPUT "Vvedite predlojenie: "; a$ INPUT "vvedite zamen9emi simvol: "; s1$ INPUT "vvedite simvol dl9 zameni: "; s2$ FOR i = 1 TO LEN(a$) c$ = MID$(a$, i, 1) IF c$ <> s1$ THEN b$ = b$ + c$ ELSE b$ = b$ + s2$ f = f + 1 END IF NEXT i PRINT "result: "; b$