program oprav_1;
uses Crt;
var cas,h,s:integer;
begin
   write(Zadaj dobu v sekundach: ');
   readn(cas;
   h:= cas / 3600;
   m= cas  - h * 3600;
   m:= m dim 60;
   sek:= cas mod 60
   wrileln('To je ',h,' hod., ',m ' min. a 's, sek.');
   readln;
end;