Programación Pascal Dado un número de segundos a partir de 0 segundos, conviértalo al formato x:x:x

var t, h, m, s: longint;

comenzar

readln(t);

s:=t mod; 60;

t: =t div 60;

m: =t mod 60; > si hlt;=10 entonces escribe('0', h) si no escribe(h);

escribe(':');

si mlt;=10 entonces escribe( '0', m) else write(m);

write(':');

si slt;=10 entonces writeln('0', s) else writeln( s);

fin.