Нарисуйте блок-схему алгоритма поиска максимально из n чисел введённых пользователем​

Первая:

Var
A,R:real;
Begin
WriteLn('Введи длину сторону квадрата');
ReadLn(A);
WriteLn('Введи радиус круга');
ReadLn(R);
if Pi*R*R>A*A then WriteLn('Площадь круга больше')
else if Pi*R*R<A*A then WriteLn('Площадь квадрата больше')
else WriteLn('Площади фигур равны');
End.

Вторая:

Var
m1,m2,V1,V2:real;
Begin
Write('m1 = ');ReadLn(m1);
Write('m2 = ');ReadLn(m2);
Write('V1 = ');ReadLn(V1);
Write('V2 = ');ReadLn(V2);
if m1/V1<m2/V2 then WriteLn('Плотность первого тела меньше')
else if m1/V1>m2/V2 then WriteLn('Плотность второго тела меньше')
else WriteLn('Плотности равны')
End.

Using System;
namespace Test{    class Program    {        static double F(double x)        {            return Math.Sin(x);        }
        static double NewtonCotesOpen4(double a, double b)        {            const int n = 4;            double[] c = {2.0, -1.0, 2.0 };            const double K = 3.0;
            double h = (b - a) / n;            double res = 0;
            double x;            for(int i = 1; i <= n - 1; i++)            {                x = a + i * h;                res += c[i - 1] * F(x);            }
            return res * (b - a) / K;        }
        static double SumSubIntervals(double a, double b, int n)        {            double res = 0;            double h = (b - a) / n;            for(int i = 1; i <= n; i++)            {                res += NewtonCotesOpen4(a + (i - 1) * h, a + i * h);            }
            return res;        }
        static void Main(string[] args)        {            double a = 0;            double b = Math.PI;            double EPS = 0.00001;
            int n = 1;            double lcur = SumSubIntervals(a, b, n);            double lpre;            do            {                lpre = lcur;                n *= 2;                lcur = SumSubIntervals(a, b, n);                Console.WriteLine("l={0} при n={1}     e={2}", Math.Round(lcur, 8), n, Math.Round(Math.Abs(lcur - lpre), 8));            } while (Math.Abs(lcur - lpre) < EPS);
            Console.WriteLine("");
            Console.WriteLine("l={0} при n={1}     e={2}", Math.Round(lcur, 8), n, Math.Round(Math.Abs(lcur - lpre), 8));        }    }}