var s: real;
begin
readln(s);
if s>1000 then writeln('Стоимость покупки с учетом скидки = ',s*0.9)
else writeln('Скидка не предоставляется');
end.
var s: real;
begin
readln(s);
if s>1000 then writeln('Стоимость покупки с учетом скидки = ',s*0.9)
else writeln('Скидка не предоставляется');
end.