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ả Giúp mk thêm nếu nhập sai thì ghi là nhap sai nha

uses crt;

var n, t : longint;

begin

clrscr;

write('nhap so km : ');readln(n);

if n = 1 then t := n * 15000;

if (n >= 2) and (n <= 10) then t := 15000 + (n - 1) * 14000;

if (n > 10) and (n <= 20) then t := 15000 + 9 * 14000 + (n - 10) * 125000;

if n > 20 then t := 15000 + 9 * 14000 + 10 * 125000 + (n - 20) * 9000;

writeln('tien tra : ', t);

readln

end.

Program baitap;

Uses crt;

Var n:integer;

      T:longint;

Begin

Clrscr;

Write('n='); Readln(n);

If (n>=1) and (n<2) then T:=n*15000;

If (n>=2) and (n<=10) then T:=n*14000; 

If (n>=11) and (n<=20) then T:=n*125000;

If n>=21 then T:=n*9000;

Writeln('So tien phai tra:',T,'(dong)');

Readln

End.