program ido;
uses crt;
var a,o,p,s:longint;
begin
     clrscr;
     o:=0;
     p:=0;
     s:=0;
     writeln('Add meg az idot masodpercben!');
     readln(a);
     o:=trunc(a/3600);
     p:=trunc((a-3600*o)/60);
     s:=a-(3600*o+60*p);
     writeln(a,'= ',o,' ora+',p,' perc+',s,' masodperc' );
     readln;
end.