Ввести стоимость покупки в магазине, если стоимость меньше тысячи, то вывести "скидки нет", если стоимость от 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.