Футболка стоила x рублей.потом цену на футболку снизили и она стала стоить y рублей.определить на сколько была снижена цена в p процентах напишите программу на языке паскаль

340 руб100%(первоначальная цена)
289х (стала стоить в процентах)
340х=289*100
34x=2890
17x=1445
x=85
(100-x)- на сколько была снижена цена
100-85=15
ответ 15%

Ну у меня также получилось