Напишите блок схему к этой программке пожалуйстаuses crt;const n = 5;var

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

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 jgt;=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 jlt;=i then write(A[i,j])
else write(' ');
end; end;
writeln;
end.