Ez a program mit csinál? (a többi lent)

Mit csinál,miről szól?

Előre is köszönöm a válaszokat!program test1;

uses wincrt;

var

a:array[1..50,1..50] of integer;

i,j,br:integer;

begin

br:=0;

for i:=1 to 3 do

for j:=1 to 3 do

begin

br:=br+1;

a[i,j]:=br;

end;

for i:=1 to 3 do

begin

for j:=1 to 3 do

write(a[i,j],' ');

writeln;

end;

end.