Даны два числа x и y. найти сумму и среднее арифметическое двух чисел qbasic

CLS
INPUT "Vvedi x: ", x
INPUT "Vvedi y: ", y
s = x + y
a = s/2
PRINT "Sr. arifm: ", a
PRINT "Summa: ", s