Написать программу вычисления цены покупки с учётом скидки: скидка в 10%

С помощью этой программки можно вычислить стоимость того или другого продукта со скидкой в 10%. Программа выполнена в Turbo Paskal

program Name;

var

a,b,x:integer;

c,f:real;

begin

a:=10;

x:=100;

readln(b);

c:=b/x;

f:=c*a;

writeln(f, Сумма продукта с учётом скидки 10%);

readln;

end.