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;