một hãng taxi đưa ra bảng giá như sau 1km đầu là 15000 2km đến 10km là 14000/km 11km đến 20 km là 125000/km 21 trở đi là 9000/km vt ct nhập vào từ bàn phím số km đã đi n (n>0) và in ra màn hình số tiền phải trả pascal

Uses crt;
Var tt,km: longint;
Begin
        Clrscr;
        Write('He he nban da duy bao nheiu km rùi nhap vao day de thanh toan: '); Readln(km);

        If km<0 then Writeln(`Ban dua toi a lam j co',n'  km ha);
        If km=1 then tt:=15000;
        If (km<=2) and (km>=10) then tt:=14000*km;
        If km<=11 and ( km>=200 then tt: 125000*km;

        If km<= 21 then tt:=9000*km;
         Write('So tien phai tra la: ',tt:0:2);
        Readln;
End.