program Hello;
var    
   x,y,k,N,hasil:longint;
begin
    readln(N);
	x:=800*N;
	if (N>=15) then
	begin
	    k:= N div 15;
	    y:= 200*k;
	end
	else
	begin
	    y:= 0;
	end;
	hasil:=x-y;
	writeln(hasil)
end.