Сумма покупки составляет а-рублей, если а>1000 то предоставляется скидка 15% вывести на экран сумму покупки с учетом

program skidka;

var a: integer;

begin

writeln(\'Введите стоимость покупки\');

readln(a);

if a > 1000 then begin

writeln(\'Доступна скидка в 15%!\');

a := a - (a mod 100 * 15);

end else writeln(\'Скидка не предоставляется.\');

writeln(\'Сумма для оплаты со скидкой \', a);

end.