t1=int(input("nhập thời gian bắt đầu"))
t2=int(input("nhập thời gian kết thúc"))
j=t1
k=t2
if (8<=t1<=t2<=22):
    if 8<=t1<=t2<=22 : 
        for j in range 14 :
            T=T+j
        for k in range 22 :
            t=t+k 
    print("tiền thanh toán là: ",(T+5000),(t+7000)) 
else :
    print('nhập sai điều kiện')

uses crt;

var t1, t2, t : longint;

begin

clrscr;

write('nhap thoi gian bat dau va ket thuc : '); readln(t1, t2);

if t1 < t2 then

begin

if (t1 >= 8) and (t2 <= 22) and (t1 < 14) then t := 6 * 5000 + (t2 -14) * 7000;

if (t1 >= 8) and (t2 < 14) then t := (t2 - t1) * 5000;

if (t1 >= 14) and (t2 <= 22) then t := (t2 - t1) * 7000;

end;

writeln('tien tra : ', t);

readln

end.