В группе N студентов,юноши соревнуются в кроссе на 1 км, девушки на 500 м.Вычислить средний результат для юношей и девушек — QBasic(Бейсик)

INPUT " vvedite kol-vo studentov ", n
FOR i = 1 TO n
    INPUT " vvedite ocherednoj resultat ", r
    INPUT "vvedite pol j/d ", a$
    IF a$ = "j" THEN sj = sj + r: kj = kj + 1 ELSE sd = sd + r: kd = kd + 1
NEXT
PRINT "srednij rezultat junoshey="; sj / kj
PRINT "srednij rezultat devushek="; sd / kd