program Discount;

var
price, discountPrice: integer;

begin
write('Enter the price of the item: ');
readln(price);

if price >= 1000 then
discountPrice := price * 90 / 100
else
discountPrice := price;

writeln('The price with discount is: ', discountPrice);
end.