Напишите программу на Паскале для вычисления стоимости покупки с учетом скидки. При цене покупки от 500 до 1000 рублей

Program pr19;
Uses
crt;
Var
s: real;
skid: integer;
Begin
clrscr;
writeln('Вычисление стоимости покупки с учетом скидки ');
write('Введите сумму покупки, руб. ');
readln(s);
skid:=0;
if (s>500) and (s<1000) then
begin
skid:=3;
s:=s-(s/100)*3;
end;
if s>1000 then
begin
skid:=5;
s:=s-(s/100)*5;
end;
writeln('Вам предоставляется скидка ', skid, '%');
writeln('Сумма покупки с учетом скидки: ', s:5:2,' руб.');
readln;
End.