Даны числа Р и Н (Р<Н). Суммировать вводимые числа,большие Н и отдельно суммировать числа меньшие Р. Определить кол-во тех и других слагаемых. При вводе числа равного Р или Н закончить работу - QBasic(Бейсик)

INPUT "vvedite p ", p
INPUT "vvedite h ", h
WHILE (a <> p) AND (a <> h)
    INPUT "vvedite chislo ", a
    IF a > h THEN s1 = s1 + a
    IF a < p THEN s2 = s2 + a
WEND
PRINT "summa >h "; s1
PRINT "summa <p "; s2