INPUT "vvedite kol-vo strok ", n
DIM a$(n)
INPUT "vvedite simvol ", b$
FOR i = 1 TO n
INPUT "vvedite stroku ", a$(i)
NEXT
FOR i = 1 TO n
k = 0
FOR j = 1 TO LEN(a$(i))
IF MID$(a$(i), j, 1) = b$ THEN k = k + 1
NEXT
PRINT "stroka nomer"; i; "kolicestvo simvolov "; b$; "="; k
NEXT