На сколько процентов понизилась цена товара по сравнению с первоначальной - Pascal ABC

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

Задача по Паскалю, пожалуйста очень срочно

Цена товара понизилась на n1, а затем ещё на n2 на сколько процентов понизилась цена товара по сравнению с первоначальной? Сколько стал стоить товар если его начальная стоимость была S р?

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

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

program pr;
var
  p, n1, n2: integer;
  s: integer;
  percent: real;
begin
  writeln('Введите цену товара');
  readln(p);
  writeln('Введите на сколько снизилась цена в 1 раз');
  readln(n1);
  writeln('Введите на сколько снизилась цена во 2 раз');
  readln(n2);
  percent := ((n1 + n2) / p) * 100;
  writeln('Цена на товар, по сравнению с первоначальной, понизилась на ', percent, ' %');
  writeln('Теперь товар стоит: ', p - (p * (percent / 100)));
end.

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

В программе объявлены переменные: p, n1, n2, s, percent.
Пользователю предлагается ввести цену товара и насколько она снизилась в первый и второй раз.
Значения переменных n1 и n2 заносятся в переменную s.
Вычисляется процент снижения цены товара путем деления суммы n1 и n2 на p и умножения на 100.
Выводится сообщение о том, насколько процентов понизилась цена товара по сравнению с первоначальной.
Выводится новая цена товара, рассчитанная как p минус произведение процента снижения на 100 и p/100.