Viết chương trình** Tính tiền đi taxi từ số km đã đi được nhập vào, biết: -1km đầu giá 5000 đ - từ km thứ 2 - thứ 5: 4500 đ/km - từ km thứ 6 trở đi: 3500 đ/km, đi hơn 120 km sẽ được giảm 10 % trên tổng số tiền được quy định. Giúp mình, mai mình kiểm tra Tin rồi hhuhu T^T

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.

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.