Program Menampilkan Bilangan Genap dan Ganjil pada Turbo Pascal

uses crt;
var
    bil:integer;
begin
    clrscr;
    writeln('Keterangan Bilangan');
    write('Masikan Nilai Bilangan :');readln(bil);
    if (bil mod 2=0) then
        begin
            write('Bilangan Genap');
            readln;
        end
    else
            write('Bilangan Ganjil');
            readln;
end.

Maka hasilnya seperti gambar dibawah ini :

Sekian dan terimakasih,,,,
semoga bermanfaat..............................!