В магазине проводится акция при сумме покупки больше 1000 р, предлагается скидка 10%. Ввести сумму покупки, вывести;
1) сообщение о том, предоставляется ли скидка
2)сумму к оплате
Написать программу в паскале

var s:real;beginwrite('Сумма покупки = ');readln(s);if s>1000 then writeln('Предоставляется скидка 10%. Сумма к оплате = ',s*0.9) else writeln('Скидка не предоставляется. Сумма к оплате = ',s);end.Пример:Сумма покупки = 2000Предоставляется скидка 10%. Сумма к оплате = 1800