program ganjil dan genap

Program ganjil_genap;

uses wincrt;

var
 bil, i,g1,g2,j1,j2,n: integer;
  rt1,rt2:real;
  

begin
    write('Masukkan Banyaknya Data ' );readln(n);
      for i := 1 to n do

      begin

       write('Bilangan ke:',i ,' ');readln(bil);

        if bil mod 2 = 0 then

        j1:=j1 +1;

        g1:=g1+bil;

      if bil mod 2 =1 then

         j2:=j2+1;

        g2:=g2+bil;

     end;

     rt1:=g1/j1;

     rt2:=g2/j2;

     writeln('Jumlah bil. Ganjil=' ,j2);

     writeln('Jumlah bil. Genap=' ,j1);

     writeln('Rerata Ganjil=' ,rt2:4:2);

     writeln('Rerata Genap=' ,rt1:4:2);

end.