Deskripsi untuk soal nomor 37 - 40

Perhatikan potongan program berikut ini:

function makaroni(x:longint):longint;
begin
    if x = 0 then makaroni := 1 else makaroni := x * makaroni(x-1);
end;

function pizza(x:longint):longint;
var i:longint;
begin
    pizza := 0;
    for i:=1 to x do
        if x mod i = 0 then pizza := pizza + 1;
end;

function pasta(x,y:longint):longint;
var i:longint;
begin
    pasta := 0;
    for i:=x to y do
        if i mod 2 = 0 then pasta := pasta + 1;
end;