var a,b,c,d:longint;
e:real;
begin
read(a);
if a>10 then e:=a*2*0.9
        else e:=a*2;
write(e:0:1);
end.
/**************************************************************
	Problem: 1636
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/