PUBLIC SUB Main()
DIM ced, c1, c2, c3, c4, c5, c6, c7, c8, c9, c10 AS String
DIM d1, d2, d3, d4, d5, d6, d7, d8, d9, d10, u, s, r AS Integer
PRINT "ingrese numero de cedula"
INPUT ced
c1 = Mid(ced, 1, 1)
c2 = Mid(ced, 2, 1)
c3 = Mid(ced, 3, 1)
c4 = Mid(ced, 4, 1)
c5 = Mid(ced, 5, 1)
c6 = Mid(ced, 6, 1)
c7 = Mid(ced, 7, 1)
c8 = Mid(ced, 8, 1)
c9 = Mid(ced, 9, 1)
c10 = Mid(ced, 10, 1)
d1 = Val(c1) * 2
IF (d1 >= 10) THEN d1 = d1 - 9
d2 = Val(c2)
d3 = Val(c3) * 2
IF (d3 >= 10) THEN d3 = d3 - 9
d4 = Val(c4)
d5 = Val(c5) * 2
IF (d5 >= 10) THEN d5 = d5 - 9
d6 = Val(c6)
d7 = Val(c7) * 2
IF (d7 >= 10) THEN d7 = d7 - 9
d8 = Val(c8)
d9 = Val(c9) * 2
IF (d9 >= 10) THEN d9 = d9 - 9
s = d1 + d2 + d3 + d4 + d5 + d6 + d7 + d8 + d9 + d10
r = s MOD 10
IF (s = 10) THEN
u = 0
ELSE
u = 10 - r
END IF
d10 = Val(c10)
IF (u = d10) THEN
PRINT "numero correcto"
ELSE
PRINT "numero incorrecto"
END IF
END