Дано число, определить: равна ли сумма 2-х первых его цифр сумме 2-х его последних — кратна ли 3-м сумма его цифр -кратна ли 4-м произведение его цифр. — Basic(Бейсик)

INPUT "vvedite chislo ", a
b = a
p = 1
posl = a MOD 10 + a \ 10 MOD 10
DO
s = s + (a MOD 10)
p = p * (a MOD 10)
IF a < 100 THEN per = per + a MOD 10
a = a \ 10
LOOP UNTIL a = 0
IF b >= 1000 THEN IF per = posl THEN PRINT "summa  dvuh pervyh=summe dvuh poslednih" ELSE PRINT "summa  dvuh pervyh<>summe dvuh poslednih "
IF s MOD 3 = 0 THEN PRINT "summa cifr kratna 3" ELSE PRINT "summa cifr ne kratna 3"
IF p MOD 4 = 0 THEN PRINT "proizvedenie cifr kratno 4" ELSE PRINT "proizvedenie cifr ne kratno 4"