program pascal konversi waktu

program pascal merupakan hal yang diperbincangkan dalam kuliahku semester 3 ini..
banyak tugas-tugas membuat program dengan pascal
seperti konversi waktu...
tugas pertama dalam perkuliahan pemrograman komputer..
ini dia programnya:

program Konversi_waktu;

uses Wincrt;

Var

    A,H,S,J,T,M,D:longint;

Begin

     writeln('Tugas 1 Konversi Waktu');

     write('masukkan detik:');readln(A);

     H:=A div 86400;

     S:=A mod 86400;

     J:=S div 3600;

     T:=S mod 3600;                     

     M:=T div 60;

     D:=T mod 60;

     writeln(H,'hari');

     writeln(J,'jam');

     writeln(M,'menit');

     writeln(D,'detik');

end.

semoga bermanfaat ^_^ d_t@;