Kodingan Pascal Ganjil Genap

program ganjilgenap;
uses crt;
VAR angka, nilai:integer;
begin
    write('masukan nilai ');
    readln(nilai);
    angka:= nilai  mod 2;
    case angka  of
    0:writeln('genap');
    else writeln('ganjil');
end;
readln;
end.