#include <iostream>
#include <algorithm>
#include <climits>
#include <string>
#include <cstring>
#include <cmath>
#include <vector>
#include <stack>
#include <map>
#include <set>
#include <iomanip>
#include <unordered_map>
#define ll long long
#define fri(a, b) for (int i = a; i < b; i++)
#define frj(a, b) for (int j = a; j < b; j++)
#define frk(a, b) for (int k = a; k < b; k++)
#define frh(a, b) for (int h = a; h < b; h++)
#define rfri(a, b) for (int i = a; i >= b; i--)
#define rfrj(a, b) for (int j = a; j >= b; j--)
#define yes cout << "YES" << "\n";
#define no cout << "NO" << "\n";
#define fast                          \
    ios_base::sync_with_stdio(false); \
    cin.tie(NULL);                    \
    cout.tie(NULL);
const int mod=1e9+7;
const int N = 1e6;    
 
using namespace std;
bool isPowerOfTwo(long long x) {
    return x > 0 && (x & (x - 1)) == 0;
}
int binarySearch(ll a[], int x, int low, int high) {
  
	// Repeat until the pointers low and high meet each other
  while (low <= high) {
    int mid = low + (high - low) / 2;
 
    if (a[mid] == x)
      return mid;
 
    if (a[mid] < x)
      low = mid + 1;
 
    else
      high = mid - 1;
  }
 
  return -1;
}
 
int main() {
    fast int T=1;
    // cin >> T;
    while (T--) {
       ll n;
       cin >> n;
       ll cnt = 0;
       cnt += (n/500)*1000;
       ll baki = n % 500;
       cnt += (baki/5)*5;
       cout << cnt << "\n";
    }
}