Program Konversi waktu

program konversi waktu
uses crt;
var
   s,menit,jam,hari:real;
begin
   Clrscr;
   write('DETIK: ');readln(s);
   menit:=s/60;
   jam:=s/3600;
   hari:=s/86400;
   writeln('=====================================');
   writeln('Hari: ',hari:0:1,' Jam: ',jam:0:0,' Menit: ',Menit:0:0,' Detik ',s:0:0);
   readln;

end.