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

program iska;
uses crt;
var x, y: real;
i:integer;
begin
  i:=1;
  x:=-9;
  clrscr;
  while (x<=7) and (i<=11) do begin
      if (x<-7) then
        begin
        y:=(-38/exp(ln(abs(x))*(1/3)))-(sin(x)/cos(x))/(x*x*x);
        writeln ('Ïðè x=',x:5:2,'   y=',y:5:2)
        end
      else
        if (x<=-7) and (x<-3) then
          begin
          writeln ('Ïðè x=',x:5:2,' ôóíêöèÿ íå îïðåäåëåíà');
          end
        else
          if (x>=-3) and (x<5) then
            begin
            if (x > 0) then
              begin
              y:=exp(ln(x)*((1/10)*x)/(99-((sin(x)/cos(x))/23)));
              writeln ('Ïðè x=',x:5:2,'   y=',y:5:2)
              end
            else
              begin
              writeln ('Ïðè x=',x:5:2,' ôóíêöèÿ íå îïðåäåëåíà');
              end;
            end
          else if (x>=5) then
            begin
            y:=exp(ln(abs(exp(x)))*x);
            writeln ('Ïðè x=',x:5:2,'   y=',y:5:2);
            end;
    x:=x+0.3;
    i:=i + 1;
    if (i = 11) then
      begin
      i:=1;
      readkey;
      //clrscr;
      end;
   //readln;
   //readkey;
   end;
end.
//end.