Задано 6 целых численных переменных. получить среднее всех этих переменных. найти сумму квадратов этих переменных, найти разность корней этих переменных. и все это вывести на печать.помогите пжл составить программу!!!!!

На бейсике моем любимом Dim a1 As Integer,  a2 As Integer,  a3 As Integer,  a4 As Integer,  a5 As Integer Dim a6 As Integer, Sred As Double, SumQuad As Double, RaznSqrt As Double Print "введите 1 число"; Input a1 Print "введите 2 число"; Input a2 Print "введите 3 число"; Input a3 Print "введите 4 число"; Input a4 Print "введите 5 число"; Input a5 Print "введите 6 число"; Input a6 Sred = (a1+a2+a3+a4+a5+a6) / 6 Print "Среднее = ",  Sred SumQuad = a1*a1+a2*a2+a3*a3+a4*a4+a5*a5+a6*a6 Print "Сумма квадратов = ",  SumQuad RaznSqrt = Sqrt(a1) - Sqrt(a2) - Sqrt(a3) - Sqrt(a4) - Sqrt(a5) - Sqrt(a6)  Print "Разность корней равна",  RaznSqrt End