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.