Program price; var p: real; begin writeln('введите стоимость покупки: '); 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.