Как в паскале написать более чего-то
Пример:если покупатель покупает товар 1000 и более то скидка 10%
Как это записать на пачкале

var x,y:real;

begin

write('cuma=');

readln(x);

if x>=1000 then

begin

y:= (x/100)*10;

x:=x-y;

end;

writeln('skidka=',y:0:0);

writeln('cuma=',x:0:0);

end.