AGDAN_4

DIM CWS AS LONG, CS AS LONG, P AS INTEGER
CLS
DO
    INPUT "Цена товара без скидки? (<> 0): ", CWS
LOOP WHILE CWS = 0
DO
    INPUT "Цена товара со скидкой? (<> 0): ", CS
LOOP WHILE CS = 0
P = (CS / CWS) * 100: IF P < 100 THEN P = ABS(P - 100)
PRINT "Процент скидки:"; P
IF P > 50 THEN
    PRINT "Распродажа"
ELSE
    PRINT "Скидка по акции"
END IF