Program Conta;
Var consumo : Integer;

Begin
  ReadLn(consumo);
  If (consumo <= 10) Then
    WriteLn(7)
  Else If (consumo <= 30) Then
    WriteLn(consumo * 1 - 3)
  Else If (consumo <= 100) Then
    WriteLn(consumo * 2 - 33)
  Else
    WriteLn(consumo * 5 - 333);
End.