DIM X(20), Z(20)
CLS
CON = 0
POST = 0
FOR I = 0 TO 19
  INPUT "Digite um valor:"; X(I)
NEXT I
FOR I = 0 TO 19
  PRINT X(I);
NEXT I
PRINT
FOR I = 0 TO 19
  IF X(I) > -1 THEN
   POST = X(I)
   FOR Y = 0 TO 19
    IF POST = X(Y) THEN CON = CON + 1: X(Y) = -1
   NEXT Y
   PRINT "FORAM ENCONTRADOS "; CON; " NéMEROS"; POST
   CON = 0
  END IF
NEXT I