Составить блок-схемы к нескольким программам

Program primer4;
const n=10;
var
  a:array[1..n] of real;
  min,max,sum: real;
  i : byte;
begin
  writeln('Ââåäèòå ýëåìåíòû ìàññèâà');
  for i:=1 to n do begin
    write(i,' el-t = '); readln(a[i]);
  end;
  min:=a[2]; max:=a[1];
  for i:=1 to n do
   if(i mod 2=1)  then
 begin
 if (a[i]>max) then
max:=a[i]; end;
  sum:=max+min;
  writeln('max=',max:0:4,'   min= ',min:0:4,'   sum= ',sum:0:4);
  readln;
end.

program primer4;
uses crt;
const nmax=100;
var a:array[1..nmax,1..nmax] of real;
n,i,j:byte;
begin
clrscr;
randomize;
repeat
write(,nmax,' n=');
readln(n);
until n in [1..nmax];
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
if i<j
then a[i,j]:=sin(i+j)
else if i=j
then a[i,j]:=1
else a[i,j]:=Arctan((i+j)/(2*i+3*j)/Sqrt(1-sqr((i+j)/(2*i+3*j))));
write(a[i,j]:5:2);
end;
writeln;
end;
readln;
end.

program primer4;
 
uses
  crt;
 
const
  nmax = 100;
 
var
  a: array[1..nmax, 1..nmax] of real;
  n, i, j: byte;
 
begin
  clrscr;
  randomize;
  repeat
    write('vvedite n(n<100): n=');
    readln(n);
  until n in [1..nmax];
  writeln;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if i < j
        then a[i, j] := sin(i + j)
      else if i = j
        then a[i, j] := 1
      else a[i, j] := Arctan((i + j) / (2 * i + 3 * j) / Sqrt(1 - sqr((i + j) / (2 * i + 3 * j))));
      write(a[i, j]:5:2);
    end;
    writeln;
  end;
  readln;
end.

Program lr3_2;
 Uses crt;
 Var x,b1,b2,c,nb1,kb1,hb1,nb2,kb2,hb2:real;
 Begin clrscr;
 nb1:=0.116;kb1:=1.185;hb1:=0.225;
 nb2:=2.146;kb2:=3.235;hb2:=0.231;
 b1:=nb1;
 while b1<kb1
 do begin
 b2:=nb2;
repeat
 c:=ln(b1)+x*ln(b2);
 writeln('b1=',b1:8:4,'b2=',b2:8:4,'c=' ,c:8:4);
 b2:=b2+hb2;
 until b2>kb2;
 b1:=b1+hb1;
 end;
 readkey;
 End.

program Lr3;
uses crt;
var a,s:real;
    f,i:integer;
begin
clrscr;
s:=0;
f:=1;
for i:=1 to 10 do begin
f:=f*i;
a:=1/f;
s:=a+s;
end;
writeln ('s=',s:6:3);
readkey;
end.

Program primer;
var
count,i:integer;
 S:String;
 
Begin
 Write('Введите Строку: ');
 Readln(S);
for i:=1 to Length(s) do
 
if i mod 2=0 then count:=count+1;
 
 
Writeln('Count: ',count);
End.

uses crt;
const e=0.0001;
function F(a,b:real):real;
begin
F:=abs((sin(sqrt(abs(a-0.8*ln(b*a)))))/(a-b));
end;
procedure Res(s,t:real;var r:real);
begin
if (abs(0.3*s-t)<e)or(abs(0.2*t-s)<e)or(s*t<=0) then write('Значение функции не определено')
else
 begin
  r:=F(t,0.3*s)+F(s,0.2*t);
  write('Значение функции=',r:0:2);
 end;
end;
var s,t,r:real;
begin
clrscr;
writeln('Введите действительные числа s,t');
readln(s,t);
Res(s,t,r);
readln
end.