Program Mencari Bilangan Ganjil dan Genap (pascal)

hallo teman-teman apa kabarmu?
sekarang saya akan mempost program untuk mencari bilangan ganjil dan genap menggunakan Pascal. langsung saja kita lihat syntax di bawah ini....


program bilGanjilGenap;
var
 angka : integer;
begin
 clrscr;
  write('masukkan angka: '); readln(angka);
  if angka mod 2=0 then
    write('genap')
  else
    write('ganjil');
  readln;
end.


teman-teman bisa myakinkan hasilnya dengan mencobanya,
Terima kasih...