procedure program bilangan ganjil genap

Deklarasi variabel :

SB,A:Numerik;

Begin

Input(SB);

SB:=A/2;

if  SB = O then

 print (‘bilangan genap’);

else

if  SB = 1 then

print (‘ bilangan ganjil’);

End