INPUT a$
FOR i=1 TO LEN(a$)
IF (MID$(a$,i,1)=",")OR(MID$(a$,i,1)="-")THEN PRINT"simvol est":f=1
IF (MID$(a$,i,1)=",")AND(MID$(a$,i+1,1)="-") THEN PRINT"cepochki est":t=1
NEXT
IF f=0 THEN PRINT"simvolov net"
IF t=0 THEN PRINT"cepochek net"