program project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes { you can add units after this }; var t, tout:text; sim1,sim2,sim3,sim4,sim5:integer; begin assign(t,'input.txt'); reset(t); read(t,sim1); sim2:=sim1 mod 60; sim3:=sim1 div 60; sim4:=sim3 mod 60; sim5:=sim3 div 60; close(t); assign(tout,'output.txt'); rewrite(tout); write(tout,sim5,':',sim4,':',sim2); close(tout); end.