Var n:integer;
tien:real;
Begin
Write(‘Nhap so kilomet da di:’); Readln(n);
If n<1 the tien:=5000
Else IF n<=5 then tien:= 5000+(n-1)*4500
Else begin
Tien:=5000+4*4500+(n – 5)*3500;
If n>120 then tien:=tien*0.9;
End;
Writeln(‘So tien phai tra la:’, tien:0:2);
End.