Помогите с Программирование (нужна программа и блок схема)

прекрасные задачи
мне приглянулись под номером 10 и 29 про массивы на последних 2х картинках

#задача 10)#
BEGIN
INT n=5;
[1:n,1:n] INT tbl;
FOR i FROM 1 TO n DO
FOR j FROM 1 TO n DO
tbl[i,j]:=0
OD
OD;
FOR i FROM 1 TO n DO
tbl[i,i]:=tbl[i,n-i+1]:=1
OD;
FOR i FROM 1 TO n DO
FOR j FROM 1 TO n DO
printf(($d" "$,tbl[i,j]))
OD;
print(new line)
OD
END

#задача 29)#
BEGIN
print(("enigu la kvantoj de tabela elemento",new line));
INT n=read int;
INT k,m;
[1:n] LONG REAL tbl;
FOR j FROM LWB tbl TO UPB tbl DO
tbl[j]:=25-50*next random
OD;
print(("tabelo antaŭ",new line));
FOR j FROM LWB tbl TO UPB tbl DO
printf(($4z-d.3d$,tbl[j]))
OD;
print(new line);
k:=UPB tbl;
m:=LWB tbl;
WHILE m< k DO
IF tbl[m] >0 THEN
IF tbl[k]< 0 THEN
LONG REAL z=tbl[m]; tbl[m]:=tbl[k]; tbl[k]:=z
FI; k-:=1
ELSE m+:=1
FI
OD;
print(("tabelo post",new line));
FOR j FROM LWB tbl TO UPB tbl DO
printf(($4z-d.3d$,tbl[j]))
OD
END