program ROUNDEMO ;

var A : extended ; J : integer ;


BEGIN ;
Writeln('ROUNDEMO.PAS   www.merlyn.demon.co.uk >=2005-07-02') ;
Writeln('Arg   Round':30, 'Trunc':6) ;

{ My Original code }
Writeln('RunTime:') ;
for J := +5 downto -4 do begin A := J-0.5 ;
  writeln(A:22:1, Round(A):6, Trunc(A):6) end ;

Writeln;

{ Addition, after Ed mail 20050701 }
Writeln('CompileTime:') ;
Writeln(+4.5:22:1, Round(+4.5):6, Trunc(+4.5):6) ;
Writeln(+3.5:22:1, Round(+3.5):6, Trunc(+3.5):6) ;
Writeln(+2.5:22:1, Round(+2.5):6, Trunc(+2.5):6) ;
Writeln(+1.5:22:1, Round(+1.5):6, Trunc(+1.5):6) ;
Writeln(+0.5:22:1, Round(+0.5):6, Trunc(+0.5):6) ;
Writeln(-0.5:22:1, Round(-0.5):6, Trunc(-0.5):6) ;
Writeln(-1.5:22:1, Round(-1.5):6, Trunc(-1.5):6) ;
Writeln(-2.5:22:1, Round(-2.5):6, Trunc(-2.5):6) ;
Writeln(-3.5:22:1, Round(-3.5):6, Trunc(-3.5):6) ;
Writeln(-4.5:22:1, Round(-4.5):6, Trunc(-4.5):6) ;

Write(' <cr>?') ; Readln ;
END.