Größter gemeinsamer Teiler (ggt) - Funktion

[czapie]

Das müßte hinhauen.

Code:

function ggT(a integer, b integer) : integer
var
c : integer
begin
if(b = 0) result := a
else 
begin
c:= a mod b;
ggT(b, c);
end;

end;