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