AGDAN_3

DIM M AS INTEGER, I AS INTEGER, S AS INTEGER
CLS
DO
    INPUT "M [2..20]?: ", M
LOOP WHILE M < 2 OR M > 20
DIM A(1 TO M) AS STRING
FOR I = 1 TO M
    PRINT I; " - строка?: ";
    INPUT "", A(I)
NEXT I
PRINT "Результат замены:"
FOR I = 1 TO M
    FOR S = 1 TO LEN(A(I))
        IF MID$(A(I), S, 1) = "!" THEN MID$(A(I), S, 1) = "."
    NEXT S
    PRINT A(I)
NEXT I