Pascal - Задача решить. Составить программу, вычисляющую стоимость покупки с учетом скидки: если покупка превышает 1500 р., то начисляется скидка 3%, если превышает 2000, то начисляется скидка 5%. Выше 4000 - скадка 7%. На вход - стоимость покупки, выход - сколько нужно оплатить.
var x: real;
begin
writeln('введите цену товара');
read(x);
if x>4000 then x:=x-x*0.07 else
if x>2000 then x:=x-x*0.05 else
if x>1500 then x:=x-x*0.03;
write(x)
end.