Program NhatNgu; Uses crt; Var tc,ht,sodien,tien: qword; Begin Clrscr; Write('Nhap so dien thang truoc: '); Readln(tc); Write('Nhap so dien thang hien tai: '); Readln(ht); sodien:=ht-tc; Writeln('So dien = ',sodien); If sodien<=5 then tien:=sodien*8000 Else If sodien<=10 then tien:=40000+(sodien-5)*13000 Else If sodien>10 then tien:=40000+13000*5+(sodien-10)*18000; Write('Tien phai tra: ',tien); Readln End.
