Program Bilangan
uses wincrt;
Var bil:integer;
Begin
writeln('input bilangan bulat');readln(bil);
if bil>0 then begin
if bil mod 2 = 0 then
writeln('Bilangan Genap Positif')
else
writeln('Bilangan Ganjil Positif');
readln;
end
else if bil<0 then begin
if bil mod 2=0 then
writeln('Bilangan Genap Negatif')
else
writeln('Bilangan Ganjil Negatif');
readln;
end
end.
