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

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

Пример:
Вычисление стоимости покупки с учетом скидки
Введите сумму покупки и нажмите ->
1200
Вам предоставляется скидка 10%. Сумма покупки с учетом скидки: 1080.00 руб.