(*$B- AUFGABE 2.3 *)
PROGRAM bruchkuerzen;
TYPE bruch = RECORD
               zaehler,nenner:longint
             END;
VAR a,b,res:bruch; ch,op:char;

(*$I kuerzen*)
(*$I liesbruch*)

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

BEGIN
  writeln('Bruch eingeben ');
  liesbruch(a,ch); kuerzen(a);
  write('gekuerzter Bruch =');
  schreibbruch(a)
END.