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

#include <stdio.h>
#include <conio.h>
#include <clx.h>
#include "math.h"
#pragma hdrstop
unsigned long factorial(unsigned long f);
//---------------------------------------------------------------------------
 
double  a, m, N, p, r, t, T, Rs, Ts, r1, sum, Po, k;
int main(void)
{
    int n, i;
  while(1){
           printf ("Vvedite chislo kanalov, no nebol'she 6: ");     // okna kass
           scanf ("%d", &n);
  if(n == -1)
     return 0;
   if ( (n < 1) || (n > 6) )
   {
   printf ("Vy vveli nevernoe chislo!: try again\n");
   }
   else break;
   }
        printf("Vvedite intensivnost` vxodiaschego potoka: ");
        scanf("%lf", &a);
        
        printf("Vvedite srendee vremya obslyjivaniya odnoj zajavki(v minutah): ");
        scanf("%lf", &t);
    m=1/t;
        printf("Intensivnost' potoka obsluzivanija (chel/min): %f\n", m);
        
    p=a/m;
        printf("Intesivnost` nagryzki: %f\n", p);
      k=p/n;
      if (k<1)
            {
            printf ("Predel'nyj regim funkcionirovanija suschestvuet!: %f\n", k);
            }
       else
           {
           printf ("Predel'nyj regim funkcionirovanija ne suschestvuet, znachenie bol'she 1!: %f\n");
           getch();
           return 0;
           }
       N=p;
        printf ("Srednee chislo zanjatyx kassirov: %f\n", N);    // chislo zanjatyx kanalov
        sum=0;
 
        for (i=1; i<=n; i++)
            sum += pow(p, i) / factorial(i);
 
    Po = 1.0/ (1 + sum + ( pow(p, n+1) / ( factorial(n)*(n-p) ) ));
 
        printf ("Verojatnost' otsutstvija zajavok v sisteme=%5.4f\n", Po); // verojatnost', chto vse kassiry svobodny
    r=pow(p, n+1) / (factorial(n-1)*(n-p)*(n-p))*Po;
        printf ("Srednee chislo passagirov v ocheredi: %f\n", r);
    Rs=N+r;
        printf ("Srednee chislo passagirov u kass: %f\n", Rs);    // srednee chislo zajavok v sisteme
    T=r/a;
        printf ("Srednee vremja, kotoroe passagir provodit v ocheredi: %f\n", T);
    Ts=Rs/a;
        printf ("Srednee vremja, kotoroe passagir tratit na priobretenie zhetona: %f\n", Ts);  // srednee vremja zajavki v sisteme*/
    getch();
        return 0;
       
      }
 
unsigned long factorial(unsigned long f)
{
    if (f) return(f * factorial(f - 1));
    return 1;
}