Detail Waktu

Iseng-iseng buka laptop, eh ketemu program Pascal yang dibuat berdasarkan soal UTS waktu semester 2 kemarin. Program ini dibuat untuk mengubah banyaknya detik menjadi satuan jam, menit, dan detik. Kita langsung liat source codenya ya :D

program detik;
uses crt;

var
d, h, j, mi, se : longint;
y : string;

label
balik;

function hitung(x:longint):longint;
begin
h := d div 3600;
j := d mod 3600;
mi := j div 60;
se := j mod 60;
writeln(d, ' detik = ', h, ' jam ', mi, ' menit ', se, ' detik.');
end;

begin
balik :
      clrscr;
      GoToXY(15,1); writeln('Detail Waktu');
      writeln;
      write('Input detik : '); readln(d);
      hitung(d);
      write('Ulangi (Y/T) ? : '); readln(y);
      if y = 'Y' then GoTo balik;
end.