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

program fun;
function Fx(x: real): real;
var nx,xb,xe,i,j,s,k,u,o,p: real;
begin
write("input starting x");
readln(xb);
x:=xb;
write("input ending x");
readln(xe);
write("input step of x");
readln(nx);
i:=3x-2.7;
j:=(-1)*x*tg(3x);
s:=i;
for (k:=1) to j do
begin
s:=i*s;
end;
u:=2.7;
o:=u;
for (p:=1) to s do
begin
o:=u*o;
end;
while x=<xe do
begin
if x<0 then
begin
Fx:=sin(x*x*x+0.6*x)+2*x*x;
print("function=", Fx);
end;
if x=>0 and x<0.5
then
begin
Fx:=ln(sqrt(cos(x*x)-1));
print("function=",Fx);
end;
if x=>0.5 then
begin
Fx:=o;  
print("function=",Fx);
end;
end;
end

Const n=17;
Var Wer:array[1..n] of integer;
    pr,i:longint;
Begin
    pr:=1;
    For i:=1 to n do
    Begin
      Wer[i]:=random(32)-15;
      write(Wer[i]:4);
      if Wer[i]>15 then pr:=pr*Wer[i];
    End;
    writeln;
    writeln('Произведение элементов больше 15 = ',pr);
    if pr>n then writeln('Произведние больше числа элементов')
     else if pr<n then writeln('Произведние меньше числа элементов')
      else writeln('Равно');
    readln;
End.