INPUT "vvedite slovo ",a$
FOR i=1 TO LEN(a$)
FOR j=1 TO LEN(a$)
IF i<>j AND MID$(a$,i,1)=MID$(a$,j,1)THEN f=1
NEXT
NEXT
IF f=0 THEN PRINT"vse bukvy slova razlichny" ELSE PRINT"v slove est odinakovye bukvy"