Program Matriks di Pascal

Jumpa lagi bersama postingan saya berikut ini, masih berkelut dengan Pascal dan kali ini saya akan share mengenai program matriks yang akan kita buat dengan program pascal, untuk softwere pascal yang saya gunakan yaitu Turbo Pascal Window (TPW) 1.5, jika diantara anda yang menggunakan pascal versi 7.0 tinggal ganti aja Uses Wincrt; menjadi Uses crt; Berikut Programnya,

uses wincrt;
    var
    a:Array[1..10,1..10] of integer;
    baris,kolom:integer;

    begin
    write('jumlah baris : ');readln(baris);
    write('jumlah kolom : ');readln(kolom);

    for baris:=1 to baris do
    for kolom:=1 to kolom do
    begin
    write('[',baris,',',kolom,'] = ');readln(a[baris,kolom]);
    end;

    writeln;
    writeln('Matrix yang terbentuk adalah : ');
    for baris:=1 to baris do
    begin
    for kolom:=1 to kolom do
    begin
    write(a[baris,kolom]);
    write(' ');

    end;
    writeln;
    end;

    end.

Demikian postingan saya kali ini mengenai Pascal dan sampai jumpa lagi pada postingan lainnya. Jangan lupa komentar dan like + follownya yaa. Terima kasih.