Вычислить стоимость покупки со скидкой - Pascal ABC (16784)

Формулировка задачи:

В чем ошибка?

program z;
var a:real;
begin
writeln ('введите стоимость покупки');
readln (a);
if 500<a<1000 then b:=a/100*97;
if a>1000 then b:=a/100*95;
writeln ('ответ', b);
end.

Решение задачи: «Вычислить стоимость покупки со скидкой»

Листинг программы

program z;
var a:real;
begin
writeln ('введите стоимость покупки');
readln (a);
if (a>500)and(a<=1000) then b:=a/100*97 else
if a>1000 then b:=a/100*95;
writeln ('ответ', b);
end.

Объяснение кода листинга программы

В программе объявляется переменная a типа real, которая будет использоваться для хранения стоимости покупки.
Программа выводит сообщение введите стоимость покупки и считывает значение переменной a с помощью функции readln().
С помощью условного оператора if проверяется, что значение переменной a больше 500 и меньше или равно 1000. Если это условие выполняется, то переменная b присваивается значение (a/100)97, иначе если значение a больше 1000, то переменная b присваивается значение (a/100)95.
Программа выводит ответ, который равен значению переменной b.