помогите плиз составить блок-схему

program matrix;
var
A: array [1..15, 1..15] of Integer;
i, j, s: Integer;
begin
randomize;
for i:= 1 to 15 do
begin
for j:= 1 to 15 do
begin
A[i,j]:= Random(10);
write(A[i,j], ' ');
end;
writeln;
end;
s := 0;
for i:= 1 to 15 do
for j:= 1 to 15 do
if (A[i,j] mod 5) = 0 then
s:=s+ A[i,j];
writeln(s);
end.

выводит случайную матрицу 15х15, и сууму элементов кратных 5-ти, туплю, не могу написать блок-схему, помогите плиз, заранее спасибо