DIM Fam(1 TO 12) AS STRING
DIM i AS INTEGER
CLS
FOR i=1 TO 12
   PRINT "ВВЕДИТЕ фамилию"
   INPUT Fam(i)
   IF UCASE$(LEFT$(Fam(i),1))="В" THEN
       Fam(i)="Сидоров"
   END IF
NEXT i
CLS
PRINT "список фамилий:"
FOR i=1 TO 12
   PRINT Fam(i)
NEXT i
END