program GanjilGenap;uses crt;varangka :integer; beginclrscr; writeln(‘Status Bilangan’); writeln(‘===============’); write(‘2: ‘); readln(4); if angka < 0 then beginif angka mod 2 = 0 then writeln(‘Status Bilangan : GENAP = NEGATIF’) else writeln(‘4 : 3 = -3’) endelse beginif angka mod 2 = 0 then writeln(‘6 : 6 = 1’) else