program ideone;
uses SysUtils;
var Diff:TDateTime;
var Str:String;
begin
Diff:=7.724838;
Str:=Format('%d dni %s',[Trunc(Diff),FormatDateTime('hh:nn:ss',Diff)]);
WriteLn(Str);
Str:=Format('%d godzin %s',[Trunc(Diff*24),FormatDateTime('nn:ss',Diff)]);
WriteLn(Str);
end.
cHJvZ3JhbSBpZGVvbmU7CnVzZXMgU3lzVXRpbHM7Cgp2YXIgRGlmZjpURGF0ZVRpbWU7CnZhciBTdHI6U3RyaW5nOwpiZWdpbgogIERpZmY6PTcuNzI0ODM4OwogIFN0cjo9Rm9ybWF0KCclZCBkbmkgJXMnLFtUcnVuYyhEaWZmKSxGb3JtYXREYXRlVGltZSgnaGg6bm46c3MnLERpZmYpXSk7CiAgV3JpdGVMbihTdHIpOwogIFN0cjo9Rm9ybWF0KCclZCBnb2R6aW4gJXMnLFtUcnVuYyhEaWZmKjI0KSxGb3JtYXREYXRlVGltZSgnbm46c3MnLERpZmYpXSk7CiAgV3JpdGVMbihTdHIpOwplbmQu