Masukkan beberapa angka (min 10) dengan looping, kemudian hitung jumlah bilangan genap dari beberapa masukan tersebut

var a:array[0..9] of integer; b,c:integer; e,f:string;begin  for b:=0 to 9 do  begin   Writeln('Masukkan angka ke-',b+1);   Readln(c);   a[b] := c;  end;
  for b:=0 to 9 do  begin   if a[b] mod 2 = 0 then   e := e +', '+ IntToStr(a[b])   else   f := f +', '+ IntToStr(a[b]);  end;
  writeln('Angka ganjil : ',f);  writeln('angka genap : ',e);  readln;end.