PROCEDURE liesbruch(VAR a: bruch; VAR ch:char);

PROCEDURE lieszahl(VAR x:longint;VAR c:char);
VAR ziffer:boolean; vor :integer;
BEGIN
   vor:=1;
   REPEAT
     read(c);
     IF c='-' THEN vor:=-vor;
     ziffer:= ('0'<=c) AND (c<='9');
   UNTIL ziffer;
   x:= 0;
   REPEAT
     x:= x*10 + ord(c)-ord('0');
     read (c);ziffer:= ('0'<=c) AND (c<='9');
   UNTIL NOT ziffer;
   x:=x*vor
END;

BEGIN
  lieszahl(a.zaehler,ch);
  lieszahl(a.nenner,ch)
END;