Написать программу вычисления стоимости покупки с учетом скидки. скидка в 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.