Program cuocinternet;

uses crt;

var start, starm, end, endm, time, tien:word;

BEGIN

clrscr;

writeln('Nhap gio bat dau:');

readln(start);

writeln('Nhap so phut:');

readln(startm);

writeln('Nhap gio ket thuc:');

readln(end);

writeln('Nhap so phut:');

readln(endm);

min1:=start*60 + startm;

min2:=end*60 + endm;

time:=min2 - min1;

begin

case start of 7..17 : if time > 360 then tien: time * 400 - (( time * 400)*(1/10)) else

tien:= time*400;

case start of 17..24: if time > 240 then

tien:= time*350 - ((time*350)*(3/25) else

tien:= time*350;

case start of 0..7:

if time > 420 then

tien:= time * 300 - ((time*300)*(2/20)) else

tien:=time * 300;

end;

writeln('Ban da su dung ',time,' phut va so tien can tra la: ',tien,'VND');

readln

END.