Разработайте программу,которая определяет сумму предоставленной покупателю скидки (В ПАСКАЛЕ). Размер предоставленной

program zz1;var a, b, c:integer; //задаем переменные целого типаbeginwrite(\' введите стоимость приобретенных в магазине товаров \'); // вводим с клавиатуры первое числоread(a); write(\' введите первую скидку \'); // вводим с клавиатуры второе числоread(b);write(\' введите вторую скидку \'); // вводим с клавиатуры третье числоread(c);

if a < 201 then write(\' скидка не предоставляется \');if (a >= 201) and (a <= 501)then write(\' ваша скидка \', b, \'%\');if a > 501 then write(\' ваша скидка \', c, \'%\');

end.