Program ganjil dan genap dengan Matlab dan Pascal

Untuk membuat program ganjil dan genap, yang dilakukan adalah dengan mengimplementasikan teori modulo. Apabila suatu bilangan katakanlah x mod 2 hasilnya adalah 0, maka bilangan tersebut genap, dan ganjil apabila tidak. Berikut adalah source code programnya dengan bahasa pemrograman Matlab.

x = input('Masukkan nilai : ');
nilai = mod(x,2);
if nilai==0
    for i = 1:5
    ('Nilai adalah bilangan Genap')
end
else
    for i=1:5
    ('Nilai adalah bilangan Ganjil')
end
end

Sedangkan dengan bahasa pemrograman Pascal adalah sebagai berikut:

Program bilganjil;
uses crt;
var j : integer;
begin
     write ('masukkan batas atas :');readln(j);
     while (j>0) do
     begin
          if (j mod 2<>0) then writeln (j);
          j:=j-1;
     end;
     readln;

end.