(* Schritt3:             *)
   WHILE A <> B DO BEGIN            (* Solange A ungleich B  *)
                                    (* Schritt1:             *)
      IF  B > A  THEN  BEGIN        (* Falls B größer als A  *)
         H := A;  A := B;  B := H;  (* A und B vertauschen   *)
      END;                          (* Schritt2:             *)
      A := A-B;                     (* A durch A-B ersetzen  *)
   END;