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

program xxx; uses crt; var price, calc:real begin writeln('Ведите сумму'); readln(price); if price<500 then begin calc:=price-price*0.03; writeln('с учетом скидки сумма будет',calc*) end; if price>1000 then begin calc:=price-price*0.05; writeln('с учетом скидки сумма будет',calc*) end; end.