uses crt;
var a,t:real;
begin
clrscr;
write('a=');readln(a);
t:=0;
if(a>100) then t:=t+55000 else t:=550*a;
if(a>150) then t:=t+1110*50 else t:=t+((a-100)*1110);
if(a>200) then t:=t+1470*50 else t:=t+((a-150)*1470);
if(a>200)then t:=t+1600*(a-200);
writeln(t:0:0);
readln
end.