Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 руб. Ниже приведен рекомендуемый вид экрана во время выполнения программы (данные, введенные пользователем, выделены полужирным шрифтом). Вычисление стоимости покупки с учетом скидки Введите сумму покупки и нажмите -> 1200 Вам предоставляется скидка 10% Сумма покупки сучетом скидки: 1080.00 руб.

var st:real;beginwriteln('Вычисление стоимости покупки с учетом скидки');writeln('Введите сумму покупки и нажмите ->');readln(st);if st>1000 then writeln('Вам предоставляется скидка 10%. Сумма покупки с учетом скидки: ',st-st*0.1:5:2,' руб.') else writeln('Скидка не предоставляется. Сумма покупки: ',st);end.Пример:Вычисление стоимости покупки с учетом скидкиВведите сумму покупки и нажмите ->1200Вам предоставляется скидка 10%. Сумма покупки с учетом скидки: 1080.00 руб.