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

1. Объявить переменные: Вам понадобятся переменные для хранения стоимости каждого предмета, общей суммы и скидки.
2. Запросить ввод данных: Используйте команду ReadLn для ввода стоимости перчатки, сумки и ремня.
3. Вычислить общую сумму: Сложите стоимости всех трех предметов.
4. Проверить на наличие скидки: Если общая сумма превышает 800 рублей, примените скидку.
5. Вывести результат: Используйте команду WriteLn для вывода итоговой суммы.

Теперь давайте рассмотрим пример кода:

program DiscountCalculator;

var
    glovesCost, bagCost, beltCost: real;
    totalCost, discount: real;

begin
    // Запрос стоимости перчатки, сумки и ремня
    Write('Введите стоимость перчатки: ');
    ReadLn(glovesCost);
    Write('Введите стоимость сумки: ');
    ReadLn(bagCost);
    Write('Введите стоимость ремня: ');
    ReadLn(beltCost);
    
    // Вычисление общей суммы
    totalCost := glovesCost + bagCost + beltCost;
    
    // Проверка на скидку
    if totalCost > 800 then
    begin
        discount := totalCost * 0.1; // 10% скидка
        totalCost := totalCost - discount;
    end;
    
    // Вывод результата
    WriteLn('Итоговая сумма с учетом скидки: ', totalCost:0:2);
end.

В этом коде:

• Мы объявляем переменные glovesCost, bagCost, beltCost для хранения стоимости предметов.
• Общая сумма вычисляется как сумма всех трех стоимостей.
• Если общая сумма превышает 800 рублей, мы вычисляем 10% скидку и вычитаем ее из общей суммы.
• В конце мы выводим итоговую сумму с помощью WriteLn.

Теперь вы можете использовать этот код в среде разработки Паскаля и протестировать его!