Dim Value as integer = 650
Dim Age(Value-1) as integer
Dim House(Value-1) as string
Dim Reaction(Value-1) as decimal
Dim SaturnCount as integer
Dim SpecificAve as decimal
Dim SpecificCount as integer
Dim Lowest as decimal = Decimal.MaxValue
Age(i) = console.ReadLine()
do While Age(i) < 12 or Age(i) > 16
console.WriteLine("age again")
Age(i) = console.ReadLine()
console.WriteLine("house")
House(i) = console.ReadLine()
do while House(i) < 1 or House(i) > 2
console.WriteLine("house again")
House(i) = console.ReadLine()
console.WriteLine("Reaction")
Reaction(i) = console.ReadLine()
console.WriteLine("Reaction again")
Reaction(i) = console.ReadLine()
console.WriteLine("Saturn average")
Console.writeline(SaturnAve/SaturnCount)
console.WriteLine("Mars average")
Console.writeline(MarsAve/Marscount)
Console.WriteLine("please choose student specific age")
Sage = console.ReadLine()
do while Sage < 12 or Sage > 16
Console.WriteLine("please try again")
Sage = console.ReadLine()
Console.WriteLine("please choose student specific house")
Shouse = console.ReadLine()
Do while Shouse < 1 or Shouse > 2
Console.WriteLine("please try again")
Shouse = console.ReadLine()
if Age(i) = Sage And House(i) = Shouse then
SpecificAve += Reaction(i)
if Reaction(i) < Lowest then
Console.Write("Average reaction time of age"& Sage &" = ")
Console.WriteLine(SpecificAve/SpecificCount)
Console.Write("Lowest reaction time of age"& Sage &" = ")
Console.WriteLine(Lowest)