tugas Menampilkan angka dengan pola tertentu Thrias Welda

 program angka;
                             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 x do
    for y:=1 to y do
    begin
    write('[',x,',',y,'] = ');readln(a[y,x]);
    end;

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


    end.