Нужно решение задачи в Pascal и нарисованная блок-схема. Пожалуйста посчитайте пожалуйста.

var a,b:array [1..8] of integer; s1,s2,m:byte;
begin
for m:=1 to 8 do
  begin
         if b[m]=1 then 
          begin
                 s1:=s1+a[m];
                 inc(s2);
          end;
  end;
writeln(s1/s2);
end.