Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% — если сумма больше 1000 руб. (Pascal)

var
    s: real;

begin
    write('Введите сумму покупки: ');
    readln(s);
    if s > 1000 then
        s := s * (1 - 0.05)
    else if s > 500 then
        s := s * (1 - 0.03);
    
    writeln('Сумма покупки с учетом скидки: ', s);
end.