var h,m,s:integer;
    sec:longint;

procedure vrijeme (var h,m,s:nteger; sec:longint);

begin
     h:=sec div 3600;
     sec:=sec mod 3600;
     m:=sec div 60;
     s:=sec mod 60;
end;

begin
     readln(sec);
     vrijeme (h,m,s,sec);
     writeln ('h= ',h,'m= ',m,'s= ',s);
     readln();
end.