Если покупка равна 500 и больше,то предоставляется скидка в 10%,если сумма покупки 1000 и...

Question

Если покупка равна 500 и больше,то предоставляется скидка в 10%,если сумма покупки 1000 и больше,то скидка=20%
Как будет выглядеть задача в паскале?

Answer 1

Var
x,y : integer;
begin
readln(x);
y:= x;
if x >= 500 then y := (x * 90) / 100;
else if x >= 1000 then y:= (x*80) / 100;
else print('Скидки нет');
print(y);
end.

Comments

стопудов работать не будет.