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

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

Пример:
Сумма покупки = 2000
Предоставляется скидка 10%. Сумма к оплате = 1800