Tugas Menampilkan Angka

 program MenampilkanAngka;
 uses wincrt;
    var
    a:Array[1..10,1..10] of integer;
    x,y:integer;

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

    for x:=1 to y do
    for y:=1 to x do
    begin

    a[1,1]:=1;
    a[2,1]:=a[1,1]+1;
    a[3,1]:=a[1,1]+2;
    a[4,1]:=a[1,1]+3;

    a[4,2]:=a[1,1]+4;
    a[3,2]:=a[1,1]+5;
    a[2,2]:=a[1,1]+6;
    a[1,2]:=a[1,1]+7;

    a[1,3]:=a[1,1]+8;
    a[2,3]:=a[1,1]+9;
    a[3,3]:=a[1,1]+10;
    a[4,3]:=a[1,1]+11;

    a[4,4]:=a[1,1]+12;
    a[3,4]:=a[1,1]+13;
    a[2,4]:=a[1,1]+14;
    a[1,4]:=a[1,1]+15;
    end;

    writeln('Matrix yang terbentuk adalah : ');

    for x:=1 to x do
    begin
    for y:=1 to y do
    begin
    write(a[x,y]);
    write(' ');
    end;
    writeln;
    end;


    end.