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

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