Var a:real;
begin;
Writeln('Вычисление стоимости покупки с учётом скидки.');
Writeln('Введите сумму покупки и нажмите Enter');
Readln(a);
if (a>500) and (a<1000) then
begin;
writeln('Вам предоставляется скидка 3%');
a:=a/100*97;
end;
if a>1000 then
begin;
writeln('Вам предоставляется скидка 5%');
a:=a/100*95;
end;
Writeln('Сумма покупки с учётом скидки:',a,'руб');
<span>end.</span>
Ну во первых 2+2 не 5, а четыре. А "Нравится ли вам изучать информатику ?"- это вопрос по этому оно лишнее.
Посмотри в документе, я прикрепил, запусти программу
Решения смотри во вложении.