Найти стоимость товара после двойной скидки - Pascal

Формулировка задачи:

На товар дважды была сделана скидка – на p1, а затем на p2 процентов. Первоначальная стоимость товара составляла S рублей. Используя функцию вычисления стоимости товара с учетом скидки на P процентов, найти стоимость товара после двойной скидки.

Решение задачи: «Найти стоимость товара после двойной скидки»

Листинг программы

const n=2;
var
  s, p: Real;
  i: Integer;
begin
  Write('Цена, скидка 1, скидка 2: '); Read(s);
  for i:=1 to n do begin
    repeat Read(p) until (p>=0) and (p<=100);
    s:=s*(1-p/100);
  end;
  WriteLn('Цена после скидок: ',s:0:2);
end.

Объяснение кода листинга программы

Константа n равна 2.
Переменные s и p типа Real и переменная i типа Integer объявлены.
Вводится начальная цена товара и значения двух скидок.
Выполняется цикл for от 1 до n.
- Вводится значение скидки p и проверяется, чтобы оно было в диапазоне от 0 до 100.
- Пересчитывается цена s с учетом введенной скидки.
Выводится конечная цена после скидок, округленная до двух знаков после запятой.