40 ! в паскале ввести с клавиатуры цену товара без скидки. ввести скидку число от 0 до 100. посчитать стоимость товара с учётом скидки заранее большое !

Var
price,discnt:real;
begin
Read(price);
Readln(discnt);
Writeln(price * (1 - discnt/100));
end.

Пример:
100
12.5
87.5