program perbaikan selisih waktu pascal by wari almaruf

Program selisihwaktu;
Uses wincrt;
Type
Waktu=record
Jam:integer;
Menit:integer;
Detik:integer;
End;
Var
W1,w2:waktu;
Selisih:waktu;
Begin
Writeln('jam pertama (w1)');
Write('w1.jam=');readln
(w1.jam);
Write('w1.menit=');readln
(w1.menit);
Write('w1.detik=');readln
(w1.detik);
Writeln('jam ke dua (w2)');
Write('w2.jam=');readln
(w2.jam);
Write('w2.menit=');readln
(w2.menit);
Write('w2.detik=');readln
(w2.detik);
If w2.detik Begin
Selisih.detik:=
(w2.detik+3600)-w1.detik;
Selisih.menit:=
(w2.menit+60)-w1.menit;
W2.jam:=w2.jam-1;
End;
if w2.menit begin
Selisih.menit:=(w2.menit+60)-
w1.menit;
W2.jam:=w2.jam-1;
end
Else
Selisih.detik:=w2.detik-
w1.detik;
Selisih.menit:=w2.menit-
w1.menit;
Selisih.jam:=w2.jam-w1.jam;
Writeln('selisih w1 dan w2=
',selisih.jam,' jam
',selisih.menit,' menit
',selisih.detik,' detik ');
End.