Biaya Pulza Telepon

uses wincrt;
var j1,j2,m1,m2,d1,d2,totaldet,biaya:integer;
pulsa:integer;
begin
write('mulai : ');readln(j1,m1,d1);
write('selesai : ');readln(j2,m2,d2);
totaldet:=(3600*(j2-j1))+(60*(m2-m1))+(d2-d1);
pulsa:=totaldet div 5;
biaya:=pulsa*200;
write('biaya = ',biaya,' rupiah');
end.