Vypis matice

{

                            Online Pascal Compiler.
                Code, Compile, Run and Debug Pascal program online.
Write your code in this editor and press "Run" button to execute it.

}


program Hello;
var i,j,N,M,a:integer;
matice: array[1..3,1..4] of integer;
begin
matice[1,1]:=1;
matice[1,2]:=1;
matice[1,3]:=6;
matice[1,4]:=3;
matice[2,1]:=9;
matice[2,2]:=2;
matice[2,3]:=5;
matice[2,4]:=4;
matice[3,1]:=2;
matice[3,2]:=5;
matice[3,3]:=4;
matice[3,4]:=7;
M:=3;
N:=4;
a:=0;
i:=0;
j:=0;

repeat i:=i+1;
    j:=0;
    writeln(' ');
    repeat j:= j+1;
        write(matice[i,j], ' ');
    until j=N;
until i=M;



end.