В магазине проводится акция при сумме покупки больше 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