Яке число в натуральному ряді чисел дорівнює сумі всіх попередніх чисел?

Число 3 дорівнює сумі всіх попередніх чисел : 3=1   + 2 

Var a: array [0..5, 0..10] of integer;     i, j, c: integer; begin       for i : = 0 to 5 do           for j : = 0 to 10 do               a[i, j] : = random(10);       for i : = 0 to 5 do           for j : = 0 to 10 do               writeln('[', i, ', ', j, '] => ', a[i, j]);       for i : = 0 to 5 do           for j : = 0 to 10 do               if (a[i, j] < 5) then c : = c + 1;       writeln(c); end.

Sub main()         dim a as integer = 1         dim b as integer = 1         dim c as integer          do while (a < 1000)             c = a             a = a + b             b = c         loop         console.write(a)         console.read()     end subэто на vb.net, а 6.0 у меня нету: )