PROGRAM ggt (INPUT,OUTPUT);
 VAR m, n: INTEGER;
 BEGIN WRITELN('Gib Zahlen'); READLN(m,n);
  REPEAT 
   IF m > n THEN m := m - n ELSE n := n - m 
  UNTIL (m = n);
 WRITELN('ggt = ',n) 
END.