Суммировать вводимые числа, большие Н и отдельно суммировать числа меньшие Р. Определить количество тех и других слагаемых

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

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

автор: кот Бегемот