D.im a(4)As Integer
D.im b(4)AS Integer
F.or k=0 To 2
a(k+1)=Val(InputBox("Enter data:"))
b(3 - k) =a(k + 1)
Next k
Print b(k)
A.2
B.4
C.6
D.0