Bilangan Ganjil dengan Pascal

Kali ini saya akan membagikan cara untuk menetukan suatu bilangan apakah bilangan ganjil atau tidak dengan menggunakan bahasa pemrograman pascal. Pada program ini menggunakan struktur if then else. semoga bisa menambah wawasan bagi para pembaca semuanya.


program ganjil;
uses crt;
var
 bilangan,sisa,ket,bagi:integer;
begin
clrscr;

writeln('masukan bilangan');
readln(bilangan);

bagi:=bilangan mod 2;
if (bagi > 0 ) then
writeln('bilangan ganjil')
else
writeln('bukan bilangan ganjil');
readln;
end.

berikut screenshotnya :