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

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