ggt und kgV von 3 Zahlen[PLEASE HELP]

[Konstantin H.]

Hallo! Ich arbeite erst seit 2 Monaten mit Delphi(5 Pro). Ich muss jetzt ein Programm erstellen, das ggT und kgV ausrechnet mit 3 Zahlen. GgT habe ich erstmal raus. Aber ich brauche einen Denkanstoß oder direckte Hilfe für kgV.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var      a, b, d, c, kgV, ggT:integer;

begin
         a:=strtoint(edit1.text);
         b:=strtoint(edit2.text);
         d:=strroint(edit5.text);
         c:=a*b*c;
         while b<>0 do
               begin
               if a>b then a:=a-b else b:=b-a;
               if a>d then a:=a-d else d:=d-a;
               if b>d then b:=b-d else d:=d-b;
               end;
         ggT:=a;
         {kgv:= c div ggT;
         edit4.text:=inttostr(ggT);
         edit3.text:=inttostr(kgV)};



end;

so das ist die ggT-Berechnung die funktoniert. Im Vorraus danke

[edit=SirThornberry]quote-tags durch delphi-tags ersetzt - Mfg, SirThornberry[/edit]