Pembentukan Array Multidimensional

uses crt;
var
a : array [1..3,1..3] of byte;
g,h,i,j : byte ; jml : longint;
min,max : real;
begin
clrscr;
writeln('Universitas Muhammadiyah Jakarta');
writeln('Teknik Informatika');
writeln('Contoh Array');
writeln;

jml:=0;

a[1,1]:=1;    {input sudah diketahui}
a[2,1]:=4;    {bisa dirubah nilainya}
a[3,1]:=7;
a[1,2]:=2;
a[2,2]:=5;
a[3,2]:=8;
a[1,3]:=3;
a[2,3]:=6;
a[3,3]:=9;

for i:= 1 to 3 do
begin
for j:= 1 to 3 do
write(a[i,j]:3);readln;
end;
end.

Program Ganjil Genap (Perulangan)

uses crt;                 
var i : integer;           {deklarasi dari variable}
begin                        {start of program}
clrscr;

writeln('Program Ganjil Genap dengan Perulangan');
writeln;

for i := 1 to 10 do      {perulangan hingga 10x}

if (i mod 2 = 0) then  {kondisi i dibagi 2 sama dengan 0}

writeln(i,' = genap')   {kondisi di mana statement benar}

else

writeln(i,' = ganjil');   {kondisi di mana statement salah}
readln;
end.                         {end of program}