Информатика задача в виде Паскаль .. Покупателю предоставляется скидка 10% на сумму покупки от 200 до 300 €, скидка 20% на сумму покупки свыше 400 €. При вводе суммы к оплате программа рассчитывает предоставлена ли скидка и в каком размере, а также сколько осталось доплатить

Предыдущий
вопрос Следующий
вопрос

program Task;
var
purchaseAmount, discount, remainingAmount: real;
begin
write('Enter the purchase amount: ');
readln(purchaseAmount);

if (purchaseAmount >= 200) and (purchaseAmount <= 300) then
discount := 0.1
else if purchaseAmount > 400 then
discount := 0.2
else
discount := 0;

remainingAmount := purchaseAmount - (purchaseAmount * discount);

writeln('Discount provided: ', discount*100:0:0, '%');
writeln('Remaining amount to pay: ', remainingAmount:0:2, ' €');
end.