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

var a, b : real; begin writeln ('Enter price: ') ; readln (a) ; b : = 10; b : = a / b; if (a> 1000) then begin writeln ('Discount 10%') ; a : = a - b; write ('Price with discount: ', a : 2 : 2) ; readln; end else begin write ('Price: ', a : 2 : 2) ; readln; end; end.