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