Var
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.
