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

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

program CalculateDiscount;

var
x, y, P, discount: integer;

begin
writeln('Enter the initial price of the t-shirt: ');
readln(x);
writeln('Enter the discounted price of the t-shirt: ');
readln(y);

discount := x - y;
P := (discount / x) * 100;

writeln('The price was reduced by ', P:0:2, '%');
end.