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

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