PROGRAM Ggt(Input,Output);            (* Programmkopf        *)
     VAR A,B,H: Integer;                 (* Variablendefinition *)
   BEGIN
     ReadLn(A,B);                        (* Eingabe von A und B *)
     WHILE  A <> B  DO  BEGIN            (* Euklidischer        *)
        IF  B > A  THEN  BEGIN           (* Algorithmus         *)
           H := A;  A := B;  B := H;
        END;
        A := A-B;
     END;
     WriteLn(A);                         (* Ausgabe von A       *) 
   END.                                  (* Programmende        *)