Блок схема

[KoSTiK_]

помогите составить блок схему по программе :
const N1=3;
N2=5;
var Q: array [1..N1,1..N2] of integer;
i,j: integer;
s: array [1..N2] of real;
begin
for i:=1 to N1 do begin
for j:=1 to N2 do begin
Q[i,j]:=random(40);
write(Q[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to N2 do
s[i]:=0;
for j:=1 to N2 do begin
for i:=1 to N1 do begin
s[j]:=s[j]+Q[i,j];
end;
end;
for i:=1 to N2 do begin
s[i]:=s[i]/N1;
write(' ',s[i]:2:2);
end;
end.