Написать програму по расчету новой цены с учетом скидки данные вводятся с клав/пропорция.

program p1;var s:real;beginwriteln('Введите сумму покупки: ');read(s);if s>1000 thenbegin s:=s-(s*0.1); writeln('Вам предоставляется скидка 10%');end;writeln('Сумма покупки с учётом скидки ',s,' рублей');end.