NET1 pascal

var n:longint;
    tien:int64;
begin
    //assign(input, 'NET1.INP');reset(input);
    //assign(output, 'NET1.OUT';rewrite(output);
    read(n);
    if n <=60 then tien:=80*n
    else 
        if n<=120 then 
            tien:=60*80+(n-60)*50
        else 
            tien:=60*80+60*50+(n-120)*30;
    writeln(tien);
end.