Ответ:

Объяснение:

program DiscountCalculator;

{$APPTYPE CONSOLE}

uses

 SysUtils;

var

 total: integer;

 discount: integer;

 discountedTotal: integer;

begin

 // Запитуємо користувача ввести загальну суму покупок

 writeln('Введіть загальну суму покупок:');

 readln(total);

 // Визначаємо, яку знижку отримає користувач

 if (total < 100) then

   discount := 0

 else if (total >= 100) and (total < 500) then

   discount := 10

 else

   discount := 20;

 // Обчислюємо суму покупок з урахуванням знижки

 discountedTotal := total - (total * discount) div 100;

 // Виводимо результат

 writeln('Загальна сума покупок: ', total);

 writeln('Знижка: ', discount, '%');

 writeln('Сума до сплати з урахуванням знижки: ', discountedTotal);

 readln;

end.

Відповідь:

Примітка: на фотографіях скріншот середовища Lazarus IDE з успішно скомпільованим кодом, а також усі потрібні приклади виконання програми.

(Щоб запустити код натисніть на маленьку кнопку у лівому куті вікна (маленька зелена стрілка(на фото є)).

+ Всі можливі випадки перевірки на фото (3 приклади виведення)

Текст програми на мові Pascal, налаштована під середовище IDE Lazarus:

program CalculateDiscount;

var

price: integer;

discount: real;

begin

writeln('Enter the purchase amount:');

readln(price);

if price < 100 then

discount := 0

else if price < 500 then

discount := 0.1

else

discount := 0.2;

writeln('Purchase amount: ', price);

writeln('Discount: ', discount*100:0:0, '%');

writeln('Amount of payment: ', price*(1-discount):0:2);

readln;

end.