Написать программу подсчета количества часов, минут и секунд в данном числе суток — Pascal(Паскаль)

Uses Crt;

Var
  day, hour, min, sec: extended;

Begin
  ClrScr;
  Write('сут = ');
  Readln(day);
  hour := 24 * day;
  min := 60 * hour;
  sec := 60 * min;
  Writeln('часов  : ', hour:0:0);
  Writeln('минут  : ', min:0:0);
  Writeln('секунд : ', sec:0:0);
  Readln

End.