PASCAL MENENTUKAN BILANGAN GANJIL ATAU GENAP DENGAN IF-ELSE

Program nilai_genap_ganjil;
uses wincrt;
var
   a, sisa : integer;
   ket : string;
Begin
clrscr;
Write ('Masukan Nilai = '); Readln (A);
sisa := a mod 2;
writeln('sisa = ',sisa);
if sisa = 0 then
    ket := 'Genap'
else
    ket := 'Ganjil';
writeln ('Jadi nilai adalah = ',ket);
readln;
end.