Составить блок схему по программе на СИ++

#include <conio.h>//для подключения функции гетч для конца
#include <stdio.h>//для интерфейса
#include <math.h>// для математических функций
 
float  T1 [5];// объявляем глобальные переменные(к каждой ппограмме не надо их будет объявлять)
float  T2 [5];
float  T3 [5][5];
float a[9] ,id,DI,Uk,ugol ,Ik,DU,Ud1,Ud2;
float p=3.141596;
int i,k,h,s;
 
void in(FILE * fp,float a[9]) // подпрограмма которая считывает данные из файла
{   for (i=0;i<9;i++)
    fscanf(fp,"%f",&a[i]);// само считывание
}
 
void out(FILE * fop,float ugol,float DI,float DU,float Ik,float Uk)//подпрограмма которая выводит полученные данные в файл
{   fprintf(fop,"    Ik\\Uk    |");//заголовок
    for(s=0;s<5;s++)//первая строчка
    {   T2[s]=Uk;
        fprintf(fop,"%13f|",T2[s]);
        Uk=Uk+DU;
    }
    fprintf(fop,"\n-------------|----------------------------------------------------------------------\n");
    //вычичляем формулы
    id=(a[3]*a[1])/(a[0]+a[3]*a[2]);
    Ud1=(a[1]*a[0])/(a[0]+a[3]*a[2]);
    Ud2=((a[3]+(a[1]-a[0])*tan(ugol))*a[3]*tan(ugol))/(a[2]*tan(ugol)+1) +a[0];
    //начало заполнения 
    for(h=0;h<5;h++)    
    {   T1[h]=id;
        fprintf(fop,"%13f|",T1[h]);// первый столбик
        for(s=0;s<5;s++)//строки 
        {   if(id>Ik)
            {   T3[h][s]=Ud1;
                fprintf(fop,"%13f|",T3[h][s]);
                Ud1=Ud1+DU;
            }
            else
            {   T3[h][s]=Ud2;
                fprintf(fop,"%13f|",T3[h][s]);
                Ud2=Ud2+DU;
            } 
        }
        id=id+DI;   
        fprintf(fop,"\n-------------|----------------------------------------------------------------------\n");
    }   
}
 
void main ()
{   FILE * fp, * fop;//объявляем перемменые типа файл,(мы присваиваем адрес где лежит файл)
    fp=fopen ("input.txt","r");//открываем для чтения
    fop=fopen ("output.txt","w");// открываем для записи
    in(fp,a);//вызываем процедура (без возращаемого результата, с параметрами fp,a) для считывания данных 
    ugol=(p*a[4])/180;
    DI=(a[8]-a[7])/4;
    DU=(a[6]-a[5])/4;
    Ik=a[7];
    Uk=a[5];
    out(fop,ugol,DI,DU,Ik,Uk);// процедура записи полученных результатов в файл, с параметрами
    fclose(fp);//закрываем файл
    fclose(fop);
    getch();
}