PROCEDURE schreibbruch(res:bruch);
BEGIN
  IF (res.nenner =1) OR (res.zaehler = 0) THEN
     write(tf,' ',res.zaehler,'    ')
  ELSE write(tf,res.zaehler,'/',res.nenner,'   ')
END;