Для заданного количества суток (tfh) требуется определить количество часов (h), минут (m) и секунд (с)

Var
d: integer;
begin
read(d);
writeln(24*d,' часов = ',60*24*d,' минут = ',60*60*24*d, ' секунд');
end.