GGT von 3 zahlen

[ScrollbarKopf]

Kann mir bitte jemand helfen schaffe es nicht den ggt von 3 zahlen zu berechnen von 2 zahlen habe ich es shcon geschafft aber ich schaffe es nciht mit 3 zahlen.

Delphi-Quellcode:

function ggt2 (z1,z2,z3:integer): integer;
var
r:integer;
begin
if z3=0 then
begin
result:=0;
end;
while z3 > 0 do
begin
r := z1 mod z2 mod z3;
z1:= z3;
z2:= r;
end;

[mkinzler]

Mach es doch Rekursiv

x := ggt( a, ggt( b,c));

[ScrollbarKopf]

danke es funktioniert