var Milliseconds : float;
var hh, mm, ss, th, tm, ts : float; // hh = hour, mm = minutes, ss = seconds, th = temporary hours, tm = temporary minutes, ts = temporary seconds
var WaitTime, h, m, s : string;

Milliseconds := 256157;
ss := Milliseconds div 1000;
mm := ss div 60;
th := mm div 60;
tm := mm mod 60;
ts := ss mod 60;

s := FloatToStr(ts);
m := FloatToStr(tm);
h := FloatToStr(th);

{Seconds Management}
IF ts = 60 THEN
  BEGIN
    s := '00';
  END;
IF ts < 10 THEN
  BEGIN
    s := '0'+FloatToStr(ts);
  END;

{Minutes Management}
IF tm = 60 THEN
  BEGIN
    m := '00';
  END;
IF tm < 10 THEN
  BEGIN
    m := '0'+FloatToStr(tm);
  END;

{Hours Management}
IF th = 24 THEN
  BEGIN
    h := '00';
  END;
IF th < 10 THEN
  BEGIN
    h := '0'+FloatToStr(th);
  END;
 
WaitTime := '+00:'+m+':'+s;
writeLn(WaitTime);
writeLn(Now);
PAL.WaitForTime(WaitTime);
writeLn(Now);