mencari rumus hari menjadi jam, menit dan detik dalam menggunakan turbo pascal 7

 2. Program hari menjadi jam, menit dan detik

program hari_waktu;
{Nia Rizki Ramadhani 25/10/2014 10:21}

uses crt;

var
  hari, jam, menit, detik : real;

begin
  clrscr;
  writeln ('Program Menghitung Jam, Menit dan Detik');
  writeln ('=============================');
  writeln;
  write ('Tuliskan Jumlah Hari =  ');
  readln (hari);

  jam       := hari * 24;
  menit    := jam * 60;
  detik    := menit * 60;

  writeln;
  writeln ('Hasilnya adalah      =  ', jam:4:0, '  Jam ');
  writeln ('                                  ', menit:4:0, '  Menit ');
  writeln ('                                  ', detik:4:0, '  Detik ');
  readln;
end.