unit arithmetik;

interface

function ggt(a, b : integer) : integer;
function kgv(a,b :  integer) : integer;
function max(n,m : integer) : integer;
function min(n,m : integer) : integer;
function teilersuche(a,n : integer) : integer;

implementation

function ggt(a, b : integer) : integer;
begin
   while (a <> b) do
   begin
      if (a < b) then b:=b-a
      else a:=a-b;
   end;
   ggt:=a;
end; { ggt }

function kgv(a,b :  integer) : integer;
begin
   kgv:=(a*b) div ggt(a,b);
end; { kgv }


function max(n,m : integer) : integer;
begin
   if (n > m) then max:=n
   else max:=m;
end; { max }


function min(n,m : integer) : integer;
begin
   if (n < m) then min:=n
   else min:=m;
end; { min }


function teilersuche(a,n : integer) : integer;
var
   i : integer;

begin
   i:=n;
   while (a mod i <> 0) do
   begin
      i:=i-1;
   end;
   teilersuche:=i;
end; { teilersuche }


end.