A = InputBox("Введите первое число") b = InputBox("Введите второе число") c = InputBox("Введите третье число") s= (csng(a)+ csng(b)+csng(c))/3 MsgBox "Среднее арифметическое: " & s