Zadání:
Sestavte program, který převede zadaný počet sekund na časový údaj ve dnech, hodinách, minutách a sekundách.

Řešení:
Řešení je třeba začít od výpočtu sekund. Vydělíme zadaný počet sekund hodnotou 60, funkcí mod zjistíme zbytek
po dělení a tento výsledek je zbylý počet sekund, který již nelze převést na minuty. Poté vydělíme celočíselným
dělením sekundy hodnotou 60, abychom vypočetli minuty. Stejným způsobem pokračujeme při výpočtu hodin a dnů.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var v,d,h,m,s: longint;

begin

    write('Zadejte udaj v sekundach: ');
    readln(v);

    s:=v mod 60;
    m:=v div 60;
    h:=m div 60;
    m:=m mod 60;
    d:=h div 24;
    h:=h mod 24;

    writeln('d:h:m:s=',d,':',h,':',m,':',s);

    readln;

end.