Программа на языке Pascal для вычисления стоимости покупки с учетом скидки может выглядеть следующим образом:

pascal

program CalculatePurchaseCost;



var

  purchaseAmount, discount, totalPrice : real;



begin

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

  readln(purchaseAmount);

  

  if purchaseAmount > 1000 then

  begin

    discount := 5; // установка скидки в 5%

    if purchaseAmount > 5000 then

      discount := 10; // установка скидки в 10% при сумме покупки более 5000 рублей

  end

  else

    discount := 0; // если сумма покупки не превышает 1000 рублей, скидка отсутствует

  

  totalPrice := purchaseAmount - purchaseAmount * discount / 100; // вычисление общей стоимости покупки

  

  writeln('Сумма покупки:', purchaseAmount:0:2, ' руб.');

  writeln('Скидка:', discount, '%');

  writeln('Итоговая стоимость:', totalPrice:0:2, ' руб.');

end.

В этой программе мы используем переменные `purchaseAmount`, `discount` и `totalPrice` для хранения данных о сумме покупки, скидке и общей стоимости соответственно. Сначала пользователю предлагается ввести сумму покупки с помощью команды `readln(purchaseAmount)`. Затем мы проверяем, превышает ли сумма покупки 1000 и 5000 рублей. Если да, то мы устанавливаем скидку в 5% или 10% соответственно, а иначе скидка останется равной 0. Далее мы вычисляем общую стоимость покупки с помощью формулы `totalPrice := purchaseAmount - purchaseAmount * discount / 100`. Здесь мы умножаем сумму покупки на процент скидки и делим на 100, чтобы получить сумму скидки, а затем вычитаем ее из исходной суммы в переменной `purchaseAmount`. Наконец, результаты выводятся на экран с помощью команд `writeln`. Пример работы программы:

Введите сумму покупки:

1500

Сумма покупки: 1500.00 руб.

Скидка: 5%

Итоговая стоимость: 1425.00 руб.

Введите сумму покупки:

6000

Сумма покупки: 6000.00 руб.

Скидка: 10%

Итоговая стоимость: 5400.00 руб.

Введите сумму покупки:

700

Сумма покупки: 700.00 руб.

Скидка: 0%

Итоговая стоимость: 700.00 руб.

Таким образом, представленная программа позволяет вычислить стоимость покупки с учетом скидки в зависимости от суммы покупки.