помогите составить блок-схемы пожалуйста к задачам..совсем запуталась (

первая
var y:array[-3..3] of real;
x:integer;
begin
x:=-3;
for x:=-3 to 3 do
if x <> 0 then
begin
y[x] := (cos(x)/sin(x))-x;
writeln('y[',x,']= ',y[x]:5:3);
end;
else
writeln('y[0] = n/a');
readln;
end.

вторая
Var A:array[1..100] of integer;
n,i,k:integer;
Begin
Randomize;
Write('n=');
Readln(n);
For i:=1 to n do
Begin
A[i]:=random(51)-25;
Write(A[i]:4);
End;
Writeln;
For i:=1 to n do
If (A[i]<=20) and (A[i]>=5) then
Begin
inc(k); Write(i:3);
End;
Writeln;
Write('Kol-vo:',k);
Readln;
End.

третья
var a,z:array[1..10] of integer;
i,j:integer;
begin
j:=1;
for i:=1 to 10 do
begin
write('Vvedite element masywa=');
readln(a[i]);
if a[i]/2 = a[i] div 2 then
begin
z[j]:=a[i];
inc(j);
end;
end;
for i:=1 to j-1 do
writeln('z[',i,']=',z[i]);
readln;
end.