Coding Pascal "Menentukan Bilangan Ganjil dan Genap"

uses crt;

var

x,y : integer ;

procedure Genap atau Ganjil;

begin

clrscr;

write ('Masukkan Bilangan : '); readln (x);

y := x mod 2;

end;

begin

Genap atau Ganjil;

if y=0 then

begin

writeln (x, 'Adalah Bilangan Genap');

end

else

begin

writeln (x, 'Adalah Bilangan Ganjil');

end;

readkey;

end.