Program menghitung jarak Kota A ke Kota B

program tes;
uses crt;
var jb,mb,d,v,wt,mt,ist,total:integer;
ya:char;

begin
writeln('MENGHITUNG JAM DARI KOTA A KE KOTA B');
repeat
begin
write('masukan jam berangkat dari kota A ke kota B : ');readln(jb);
write('masukan menit berangkat dari kota A ke kota B : ');readln(mb);
write('masukan jarak dari kota A ke kota B : ');readln(d);
write('masukan kecepatan (km/jam) : ');readln(v);
wt:=0;
ist:=0;
wt:=d div 100;
mt:=(mb*60) div v;
if d div 100 =0 then
begin
ist:=(d div 100)-1;
ist:=ist*15;
end
else
begin
ist:=d div 100;
ist:=ist*15;
end;
wt:=jb+wt;
mt:=mb+mt;
if (ist+mt)>= 60 then
begin
wt:=wt+((ist+mt) div 60);
mt:=(mt+mt) mod 60;
end;
if wt>24 then
total:=wt-24;
end;
writeln('=====================================================');
writeln('waktu tiba di kota B adalah ',total,':',mt);
write('mau coba lagi y/t ? ');readln(ya)
until ya='t';
end.