codeb/abgabe_bf.0

   1 method ggt(b)
   2   var a:=this;
   3   while b do
   4     if b<a then
   5       a:=a-b;
   6     else
   7       b:=b-a;
   8     end;
   9   end;
  10   return a;
  11 end;