Напишите блок схему к этой программе пожалуйста

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])
{else write(' ');}
end; end;
writeln;
end.