PROGRAM INPUT MATRIK ARRAY MENGGUNAKAN BAHASA PEMROGRAMAN PASCAL

Program InputMatrik;
Uses Wincrt;
Type 
   Matrik=array[1..100,1..100] of integer;
Var
   matriku:matrik;
   b,k,baris,kolom:integer;
begin
   {Kode membatasi input <= 100} 
   repeat
     clrscr;
     writeln('Input Jumlah Baris dan Kolom <= 100');
     write('Input Jumlah Baris = ');
     readln(baris);
     write('Input Jumlah Kolom = ');
     readln(kolom);
   until (baris<=100) and (kolom<=100);
   {Kode untuk input data}
   for b:=1 to baris do begin
      for k:= 1 to kolom do begin
         Write('Data Baris Ke ',b,' Kolom ke ',k,' = ');
         readln(matriku[b,k]);
      end;
      writeln;
   end;
   {Kode untuk output Data}
   for b:=1 to baris do begin
      for k:= 1 to kolom do begin
         Write(matriku[b,k]:4);
      end;
      writeln;
   end;
end.