Program Array 1

program array_01;
uses wincrt;
var tabel:array [1..3,1..2] of integer;
i,j:integer;
begin
tabel[1,1]:=25;
tabel[1,2]:=10;
tabel[2,1]:=11;
tabel[2,2]:=15;
tabel[3,1]:=35;
tabel[3,2]:=20;
for i:=1 to 3 do
begin
for j:=1 to 2 do
write(tabel[i,j]:10);
writeln;
end;
readln;
end.