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

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

varx,y : integer;beginreadln(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.