program time(input,output);

const
  tab = 31;

var
  t,h,m,s  : integer;

function secs(t : integer) : integer;
begin
  secs := t div 100 mod 60
end;

function mins(t : integer) : integer;
begin
  mins := t div 6000 mod 60
end;

function hrs(t : integer) : integer;
begin
  hrs := t div 360000 mod 24
end;

begin
  page;
  writeln;
  write('Type in the time as hours minutes seconds ');
  readln(h,m,s);
  settime(100*(s+60*m+3600*h));
  repeat
    repeat until time mod 100 = 0;
    t := time;
    vdu(tab,0,5);
    write(hrs(t):2,':',mins(t):2,':',secs(t):2)
  until inkey(0)=ord(' ')
end.
