Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3%
предоставляется в том случае, если сумма покупки больше 1000 руб., в 5% – если
сумма больше 1500 руб.

var

   s: real;

begin

   write('Введите сумму покупки: ');

   readln(s);

   if s > 1000 then

       s := s * (1 - 0.05)

   else if s > 500 then

       s := s * (1 - 0.03);

   writeln('Сумма покупки с учетом скидки: ', s);

end.

Подробнее - на -

Объяснение: