Program GanjiL Genap

Oke Kalian Semua Pasti ada yang tau Turbo Pascal fo Windows atau Bahasa Pemprograman PascaL
Brikut ini adalah Coding TPW (Turbo PascaL for Windows:

Program menentukan_GanJil_Genap;
uses winCrt;


var
x, sisa : integer;
ket : string;
Begin
     Writeln ('sagathespy');
     Writeln ('-----------');
     Write ('Masukan angka : '); Readln (x);
     sisa := x mod 2;
     if sisa = 0 then ket := 'Genap' else ket := 'Ganjil';
     write ('Jadi jenis bilangan ini adalah :'); write (ket);

end.