program pr;
var sum, pr, x: integer; f:boolean;
begin
read (x);
pr:=2*x;
sum:=x+pr;
f:=pr <= 18;
if sum>10 
then
if not f
then
sum:=sum+1;
else
sum:=sum+9;
sum:=sum+18;
writeln(sum);
end