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

С помощью этой программы можно вычислить цену того или иного товара со скидкой в 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.