Нарисовать блок схемы по программам в ворде

1 программа
clc;
clear;

Eps = input('Eps=');
n = input('n=');

z=1;
rz=1; r1=1; r=1;
for i=1:n
rz= rz*i;
r1=r1*(-1)*2;
r=r*r1/rz;

disp(r);
//mprintf(' A(%d)=%2.14f ',i,r);
if (abs(r)<Eps) & (z==1)
mprintf(' |an|<Eps when i= %d ',i);
z=99;
end
en
2 программа
clc;
clear;
N=input('Vvesti kolichestvo strok N (>=6) =');
M=input('Vvesti kolichestvo stolbcov M (>=2) =');
// N=6;
// M=2;
disp('Vvod matrici A');

for i=1:N
for j=1:M
mprintf('Vvedite A(%d,%d)= ',i,j);
A(i,j)=input('');
end
end

disp('Matrica A');
disp(A);

// save 1 stroku A
for j=1:M
B(j)=A(1,j);
end