a : integer;

Ket:string

Begin

a : StrToInt (Edit1.Text);

if ( a mod 2=0 )  then

begin

if  a > 0 then ket : = ’Genap Positif ‘

else ket : = ‘ Genap Negatif ‘

end

else

if a < 0 then ket : = ’Ganjil Negatif ‘

else ket : = ‘ Ganjil Positif ‘ ;

label12.caption : = ket ;

end;

end.