Progam Ganjil Genap Pascal

Assalamualaikum Wr.Wb

Oke teman teman kali ini saya akan membuat program sederhana yang menetukan bilangan ganjil atau genap , bagaimana codingannya ?? Silakan dipahami dan dipelajari :

Program Ganjil Genap Pascal

Program Ganjil_genap;

uses crt;

var

          nilai : integer;

begin

clrscr();

writeln('Menentukan Bilangan Ganjil Genap');

writeln('================================');

Write('Masukan Sebuah Nilai : ');

readln(nilai);

          if nilai mod 2 = 0 then

                   writeln('Angka adalah bilangan Genap')

                  

                   else

                   writeln('Angka adalah bilangan Ganjil');

                   writeln('================================');

          readln;

end.

 Output :

Silakan dicoba dan semoga bermanfaat
jangan lupa like komen untuk mendukung mimin agar update terus setiap hari dan bisa menjawab pertanyaan kalian semua
Terimakasih .