uses crt;
var n,kq,i:longint;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
if i<50 then kq:=kq+1678;
if (i>=50) and (i<100) then kq:=kq+1734;
if (i>=100) and (i<200) then kq:=kq+2014;
if (i>=200) and (i<=300) then kq:=kq+2536;
if i>300 then kq:=kq+3000;
end;
clrscr;
write('So tien la: ',kq);
readln;
end.