program real_test (output);

procedure wrote (x : real);
var temp : real;
begin
  temp := abs (x);
  if temp = x then write ('  +') else write ('  -');
  write (trunc (temp):1, '.', trunc ((temp-trunc(temp))*10000000.1):1);
  write (x) { My attempt }
end;
  
begin
  wrote (2.9); wrote (68.1); wrote (-2.0); wrote (-1e9)
end.