program bai1;

uses crt;

var a:longint; tiendien:real;

begin

clrscr;

readln(a);

if a<=100 then tiendien:=a*1000;

if a<=150 then tiendien:=100*1000+2000*(a-100);

if a<=200 then tiendien:=100*1000+2000*50+2500*(a-150);

if a>=200 then tiendien:=100*1000+2000*50+2500*50+3000*(a-200);

Writeln('so tien dien trong thang la:',tiendien:9:0,'VND');

readln;

END.