program menentukan bilangan ganjil dan genap

program ganjil_genap;
var b : integer;

begin
      writeln('masukkan bilangannya');
       read (b);
       if b mod 2=0 then
       begin
       writeln(' iku bilangan genap');
       readln;
       readln;
       end
       else
       begin
       writeln(' iku bilangan ganjil');
       end;
       readln;
       readln;
end.