Вычислить стоимость покупки, если покупка больше 500р, то 3% скидка

program pokupka;
uses crt;
var S,S3,S5: real;
begin
writeln('Вычисление стоимости покупки с учётом скидки.');
writeln('Введите сумму покупки и нажмите <Enter>');
write('-> '); readln(S);
IF S>500 then
  begin
 S3:=S-S*0.03; 
writeln('Вам предоставляется скидка 3%');
writeln('Сумма покупки с учётом скидки: ',S3:0:2,' руб.');
  end;
IF S>1000 then
  begin
 S3:=S-S*0.05; 
writeln('Вам предоставляется скидка 5%');
writeln('Сумма покупки с учётом скидки: ',S5:0:2,' руб.');
  end
else
writeln('Вам не предоставлется скидка');  
writeln('Сумма вашей покупки: ',S:0:2,' руб.');
end.

var S,S3,S5: real;
begin
  writeln('Вычисление стоимости покупки с учётом скидки.');
  writeln('Введите сумму покупки и нажмите <Enter>');
  write('-> '); readln(S);
  IF S>1000 then
  begin
    S5:=S-S*0.05; 
    writeln('Вам предоставляется скидка 5%');
    writeln('Сумма покупки с учётом скидки: ',S5:0:2,' руб.');
  end
  else 
  IF S>500 then
  begin
    S3:=S-S*0.03; 
    writeln('Вам предоставляется скидка 3%');
    writeln('Сумма покупки с учётом скидки: ',S3:0:2,' руб.');
  end
  else
  writeln('Вам не предоставлется скидка');  
  writeln('Сумма вашей покупки: ',S:0:2,' руб.')
end.