(*$B- AUFGABE 2.2 *)
PROGRAM gemteiler;
{ TYPE longint = longint  (*longint[36] fuer UCSD PASCAL *);}
VAR a,b :longint;
FUNCTION ggt(a,b:longint):longint;
VAR h:longint;
BEGIN
  REPEAT
    IF a<b THEN
    BEGIN
      h:= a; a:= b; b:= h
    END
    ELSE a:= a MOD b;
  UNTIL b = 0;
  ggt:=a
END;
BEGIN
  writeln('Berechnung des ggT: a,b eingeben'); read(a,b);
  writeln('ggT(',a,',',b,') = ',ggt(a,b))
END.