var a:real;begin;Writeln('Вычисление стоимости покупки с учётом скидки.');Writeln('Введите сумму покупки и нажмите Enter');Readln(a);if (a>500) and (a<1000) thenbegin;writeln('Вам предоставляется скидка 3%');a:=a/100*97;end;if a>1000 thenbegin;writeln('Вам предоставляется скидка 5%');a:=a/100*95;end;Writeln('Сумма покупки с учётом скидки:',a,'руб');end.