Сумма покупки составляет а-рублей, если а>1000 то предоставляется скидка 15% вывести на экран сумму покупки с учетом скидки,либо сообщение о том ,что скидка не предоставляется ( Сделать алгоритм!!!)
If a>1000 then b:=a*0.15; a:=a -b; write(a); else write('скидки нет'); End.