Klavyeden girilen sayilar arasindan Ayni Girilen Sayiların Sayisini Bulma

CLS
INPUT "KAÇ TANE SAYI GİRİLECEK="; sayi
DIM B(sayi)
FOR I=1 TO sayi
INPUT "SAYI GİR="; B(I)
NEXT I
FOR I = 1 TO (sayi-1)
FOR J = (I+1) TO sayi
IF B(J)= B(I) THEN X = X + 1
NEXT J , I
PRINT "AYNI OLAN SAYI ADEDİ="; X
END