MODULE ggT; (* Berechnung des groessten gemeinsamen Teilers * zweier positiver ganzer Zahlen *) FROM InOut IMPORT WriteString, WriteLn, WriteCard, ReadCard; VAR x, y : CARDINAL; BEGIN WriteString("Bestimmung des GGT");WriteLn; WriteString("==================");WriteLn; WriteString("Erste positive Zahl eingeben: "); ReadCard(x); WriteLn; WriteString("Zweite positive Zahl eingeben: "); ReadCard(y); WriteLn; IF (x>0) AND (y>0) THEN WHILE (x<>y) DO IF (x>y) THEN x := x-y ELSE (* y