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

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