var s: real;
begin
readln(s);
if s>1000
then writeln('Стоимость покупки с учетом скидки: ', s*0.9:4:2)
else writeln('Стоимость покупки: ', s:4:2);
end.
var s: real;
begin
readln(s);
if s>1000
then writeln('Стоимость покупки с учетом скидки: ', s*0.9:4:2)
else writeln('Стоимость покупки: ', s:4:2);
end.