program Discount;

var
sum: integer;

begin
writeln('Введите сумму покупки:');
readln(sum);

if sum > 1000 then
begin
writeln('Сумма покупки с учетом скидки 10%: ', sum * 0.9:0:2);
end
else
begin
writeln('Скидка не предоставляется');
end;

end.