bahasa pemograman pascal konversi waktu

Program  Konversi_Waktu;
uses crt;
var      t : integer;
         detik,menit,jam:real;
Begin
         clrscr;
         writeln('Input nilai t dalam detik : ');
         readln(t);
         detik:=t;
         menit:=t/60;
         jam:=t/3600;
         clrscr;
         writeln('      <<<Konversi Waktu>>>');
         writeln('Waktu sebesar',t:6,' dalam satuan detik');
         writeln('setara dengan');
         writeln('1.',detik:15:4,' detik');
         writeln('2.',menit:15:4,' menit');
         writeln('3.',jam:15:4,' jam');
         readln;
end.