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