Задано 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