Jumlah Deret Bil Genap Di FPC

program jumlahderet_ganjil;

uses crt;

var

        i, n, bil, jumlah,jumlahgenap : integer;

begin

        clrscr;

        write('masukkan nilai N (banyak bilangn) : '); readln(n);

        jumlah := 0;

        iganjil := 0;

        for i:=1 to n do begin

            write('bil ke - ', i, ' = '); readln(bil);

            if (bil mod 2 = 1) then begin

                 jumlah := jumlah + bil;

                 iganjil := iganjil + 1;

            end else begin

                 jumlahgenap := jumlahgenap + bil

            end;

        end;

        writeln(jumlah);

        writeln(jumlahgenap);

        writeln(jumlah / iganjil);

        readkey;

end.