Ввести стоимость покупки в магазине, если стоимость меньше тысячи, то вывести "скидки нет", если стоимость от 1000 до 5000, то вывести "скидка 5%", если стоимость свыше 5000, то вывести "скидка 10%". Вывести сумму со скидкой.

Для Paskal ABC Program magazin; var      a:integer;      s:integer; begin s:=0; writeln('Введите стоимость:'); readln(a); If a<1000 then begin  writeln('Скидок нет');   writeln('Ваша сумма:',a);end; If (a>=1000)and(a<=5000) then begin     s:=(a/100)*95;    writeln('Ваша скидка 5%');     writeln('Ваша сумма:',s);end; If a>5000 then begin   s:=(a/100)*90;    writeln('Ваша скидка 10%');   writeln('Ваша сумма:',s);end; End.