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