Pascal - Daftar Gaji (Array)

program gaji;
uses crt;
var nip : array[1..25] of string[20];
    nm : array[1..25] of string[30];
    gj : array[1..25] of longint;
    jml : longint;
    i,n : byte;

begin
 clrscr;
 i:=1;
 write('NIP [99 = selesai] : '); readln(nip[i]);
 while nip[i] <> '99' do
 begin
  write('Nama               : '); readln(nm[i]);
  write('Gaji               : '); readln(gj[i]);
  inc(i);
  write('NIP [99 = selesai] : '); readln(nip[i]);
 end;

 n:= i-1;
 jml:= 0;
 for i := 1 to n do
 jml:= jml+gj[i];

Pascal - Perkalian Matriks

program kali_matriks;
uses crt;
var mA,mB,mC : array [1..10,1..10] of byte;
    i,j,k,b1,b2,k1,k2 : byte;
begin
 clrscr;
 write('Baris Matriks A : '); readln(b1);
 write('Kolom Matriks A : '); readln(k1);
 writeln;

 write('Baris Matriks B : '); readln(b2);
 write('Kolom Matriks B : '); readln(k2);
 writeln;

 if k1<>b2 then
 repeat
 writeln('Maaf, Kolom Matriks A harus sama dengan Baris Matriks B');
 readln;
 clrscr;
 write('Baris Matriks A : '); readln(b1);
 write('Kolom Matriks A : '); readln(k1);
 writeln;

 write('Baris Matriks B : '); readln(b2);
 write('Kolom Matriks B : '); readln(k2);
 until k1=b2;

 clrscr;
 for i:= 1 to b1 do
  for j:= 1 to k1 do
  begin
   write('Input Matriks A [',i,',',j,'] : '); readln(mA[i,j]);
  end;
 writeln;