Contoh TURBO PASCAL “MOD”

Contohnya:

program hello_world; 

uses wincrt;

var a:integer;

 BEGIN

     write('masukkan angka;');readln(A);

     if a mod 2=0 then

        begin

           writeln('genap');

       end

    else

      writeln('ganjil');

  END.

Semoga bermanfaat…………