Написать программу для вычисления стоим. Покупки со скидкой. Скидка 3%, если сумма…

Program xxx; uses crt; var price, calc: realbeginwriteln ('Ведите сумму'); readln (price); if price<500 thenbegincalc: =price-price*0,03; writeln ('с учетом скидки сумма будет',calc*) end; if price>1000 thenbegincalc: =price-price*0,05; writeln ('с учетом скидки сумма будет',calc*) end; end.