Составьте программу вычисляющую стоимость покупки с учетом скидки 10% Если сумма 1000 ,30% если сумма покупки равна или больше 15000
Это по информатике Срочнооооооооо

program price;varp: real;beginwriteln('Введите стоимость покупки:');readln(p);  if p=1000 then    begin      p:=p-(p*0.1);      writeln('Цена с учётом скидки: ',p);    end  else if p>=15000 then    begin      p:=p-(p*0.3);      writeln('Цена с учётом скидки: ',p);    end  else if p<=0 then      writeln('Цена не может быть меньше или равна 0')  else    writeln('Скидки нет');end.