Для заданного количества суток (tfh) требуется определить количество часов (h), минут (m) и секунд (с)
Var d: integer; begin read(d); writeln(24*d,' часов = ',60*24*d,' минут = ',60*60*24*d, ' секунд'); end.