contoh program 13

uses crt;

var

       deb, jam, men, det, njam, nmen: integer;

begin

clrscr;

       write('Masukkan Waktu dalam Detik   : '); readln(deb);

       

       jam := 0;

       men := 0;

       det := 0;

       

       njam := deb;

       nmen := deb;

       

       repeat

       begin

                   njam:= njam - 3600;

                   jam := jam + 1;

       end;

       until njam < 3600;

       

       repeat

       begin

                   nmen := nmen - 60;

                   men := men + 1;

                   

                   if (men > 60) then

                               men := men - 60;

       end;

       until nmen < 60;

       

       write(jam, ' Jam, ', men, ' Menit, ', nmen, ' Detik '); readln;

end.