Напишите блок схему к этой программе пожалуйста
uses crt;
const n = 5;
var a:array[1..N,1..N] of integer;
i,j:byte;
begin
for i:=1 to N do begin;
writeln;
for j:=1 to N do begin
a[i,j]:=random(10);
write(a[i,j],' ');
end; end;
writeln;
for i:=1 to N do begin
{writeln;}
for j:=1 to n do begin
if j>=i then write(A[i,j])
{else write(' ');}
end; end;
writeln;
for i:=1 to N do begin
{writeln;}
for j:=1 to n do begin
if j<=i then write(A[i,j])<br> {else write(' ');}
end; end;
writeln;
end.