{ Написать программу подсчета кол-ва часов, минут и секунд в данном числе суток. }

uses crt;
var syt,has,min,sec : extended;
begin
  clrscr;
  write('сут = ');
  readln(syt);
   has:=24*syt;
   min:=60*has;
   sec:=60*min;
  writeln('часов  : ',has:0:0);
  writeln('минут  : ',min:0:0);
  writeln('секунд : ',sec:0:0);
  readln;
end.