Хелп ми написать программу вычисления в стоимости покупки с учетом скидки 9% предоставляется если сумма покупки больше 1000. язык программирования pascal

Var x: integer;
var price: real;

begin 
  writeln('Введите цену: ');
  readln(x); 
  if(x > 1000) then price := x * 0.91 
  else price := x;   
  writeln('Стоимость покупки: ', price); 
end.