Deskripsi untuk soal nomor 44 - 45

Perhatikan potongan kode program berikut

function gembel(x,y : integer) : integer;
begin
if y=0 then gembel := x
else gembel := gembel(y,x mod y);
end;

function wedhus(n : integer) : integer;
var pedhet : integer;
begin
pedhet := 0;
for i:= n-1 downto 1 do
begin
if gembel(n,i)=1 then pedhet := pedhet+1;
end;
wedhus := pedhet;
end;