Сделать блок-схему по коду Паскаль.

Требования к блок-схеме. Размер фигур 1.5 к 1, функцию вынести отдельно.
program Lab_8;
const N=5;
var z, x, y: real;
type mass = Array [1..5] of real;
var A:mass=(0.12,0.8,0.2,0.38,0.11);
B:mass=(1.1,0.5,0.7,0.4,0.9);
E:mass=(0.25,0.4,0.75,0.1,0.2);
function lab(m:mass):real;
var i: integer; p: real;
begin
p:=1;
for i:=1 to N do
begin
p:= p * (m[i]/i);
writeln('p[',i,']=', p:6:3, ' m[',i,']= ',m[i]:6:3,' i=',i );
end;
lab:=p
end;
begin
z:=lab(E);
x:=lab(A);
y:=lab(B);
writeln ('x=',x:8:5);
writeln ('y=',y:8:5);
writeln ('z=',z:8:5);
end.