Fehler beim KGV berechnen

[ScrollbarKopf]

Noch ne frage habe hier nen code fürn ggt der mir aber nach kgt vorkommt weiß nicht was von den beiden er jetzt si bitte um aussagen

Delphi-Quellcode:

function ggT(a, b : Integer) : Integer;
VAR r : integer;
begin
  if b = 0 then
  begin
    result := 0;
    exit;
  end;

  while b > 0 do
  begin
    r := a mod b;
    a := b;
    b := r;
  end;

  result := a;
end;