Нужны блок схемы (7- программ)

program altinwi;
var
  i, diapazon: integer;
  a:array[5..100] of integer;
begin
  diapazon := 100;
   for i := 5 to 100 do
   begin
    a[i] := random(diapazon)+1;
    WriteLn('a[',i,']=',a[i]);
  end;
end.

program Esep_tortinwi;
uses crt;
const a=1;
      b=5;
      n=15;
function f(x:real):real;
begin
f:=ln(cos((6*x-x*x)/8)/sin((6*x-x*x)/8));
end;
var h,x,y:real;
    i:byte;
begin
h:=(b-a)/(n-1);
for i:=0 to n-1 do
 begin
  x:=a+i*h;
  writeln('n=',i+1:2,' x=',x:4:2,' f(x)=',f(x):6:3);
 end;
end.

program vtoraya;
var a,b:real;
 
function sqr_(var x:real):real;
begin
sqr_:=5*x*x-7*x+2
end;
begin
Randomize;
a:=Random((30)-15);
b:=Random((30)-15);
writeln('координатасы  a = ',a);
writeln('координатасы b = ',a);
if (sqr_(a)-b=0) then writeln('өтеді')
else writeln('өтпейді');
writeln;
end.

program nomer_adin_vtoraya;
var r:real;
var p:real;
var p1:real;
var p2:real;
begin
readln(r);
p:=(r/100)*70;
p1:=(r/100)*30;
p2:=r-p;// жалақы-70 %салык
Writeln('жалақы, орташа=','', p2/8)// суммасы .жалакы алушылардын саны
end.

program nomer_adin_pervaya;
const a=1.1;
      b=0.004;
      x=0.2;
var y,z:real;
begin
y:=power(sin(power(x*x+a,2)),3)+sqrt(x/b);
z:=x*x/a+cos(power(x+b,3));
writeln('y=',y:0:3);
writeln('z=',z:0:3);
end.