Menentukan Bilangan Genap

ini adalah scriptnya untuk menentukan Bilangan Genap, 

Uses Crt;
Var
Genap : Array[1..10] of Integer;
i,j : Integer;
bil : Integer;
Begin
ClrScr;
For i := 1 to 10 Do
Begin
bil := (i mod 2); {* i dibagi j dicek apakah 0*}
begin
genap[i]:=i;
If bil >0 then Genap[i]:= 0 {*jika habis dibagi,berarti genap*}
end;
If genap[i] <> 0 Then Write(Genap[i],' '); {*cetak array yg genap*}
End;
Readln;
End.


ini adalah hasil tampilan dari coding atau script di atas, Silahkan dicoba :D