ggt und kgV von 3 Zahlen[PLEASE HELP]

[Konstantin H.]

Als Grundlage habe ich dieses Programm genohmen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

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

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



end

Daraus habe ich eine Überleitung zum ggT für 3 Zahlen gemacht. Aber bei kgV wird nur Quatsch ausgegeben.