TP3/shell/tests/fixtures/t104_mathbasic.pas

program t104_mathbasic;

{ t104 -- Abs, Sqr and Sqrt on REAL. }

var
  R : real;
  S : string[20];
begin
  R := -3.5;
  Str (Abs (R) : 0 : 1, S) ; writeln (S) ;
  R := 3;
  Str (Sqr (R) : 0 : 0, S) ; writeln (S) ;
  R := 2;
  Str (Sqrt (R) : 0 : 4, S) ; writeln (S)
end.