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

uses crt;
var s:integer;
 
function count(n:integer):real;
begin
if (n>500)and(n<1000) then
count:=n-n*3/100
else if n>1000 then count:=n-n*5/100;
end;
 
begin
writeln('Введите стоимость покупки');
readln(s);
writeln('Оплата с учетом скидки: ',count(s):0:2);
readln;
end.