Program Tien_Taxi;
uses crt;
var km,t:longint;
t1:real;
begin;
clrscr;
writeln('nhap so km');readln(km);
if (km>0) and (km<=1) then t:=km*5000;
if (km>=2) and (km<=5) then t:=1*5000+(km-1)*4500;
if (km>=6) then t:=1*5000+4*4500+(km-5)*3500;
if (km>120) then t1:=t-t*(10/100);
if (km>0) and (km<=120) then writeln('so tien phai tra la ',t,' dong');
if (km>120) then writeln('so tien phai tra la ',t1:10:2,' dong');
readln
end.