ganjil genap ( PASCAL )

program pascal;
uses wincrt;
var b:longint;
hasil : integer;

begin
writeln('bilangan = '); readln(b);
if (b mod 2)=1 then
write('ganjil')
else
write('genap');

end.