CLSA = 0INPUT"Введите B:",BDO B = B - 2 a = a + 1LOOP WHILE (B >= 0)PRINT "2 надо вычесть",a,"раз"END
CLS
A = 0
INPUT"Введите B:",B
DO
B = B - 2
a = a + 1
LOOP WHILE (B >= 0)
PRINT "2 надо вычесть",a,"раз"
END