Начертите блок-схему и запишите программный код в visual studio windows forms Я тут что-то написал, но у меня ответы не сходятся, найдите ошибку.

Private void button1_Click(object sender, EventArgs e)
{
double x = double.Parse(textBox1.Text);
double y = double.Parse(textBox2.Text);
double z = double.Parse(textBox3.Text);

textBox4.Text = "Результаты работы программы" + " :) " +
Environment.NewLine;
textBox4.Text += "При X = " + textBox1.Text +
Environment.NewLine;
textBox4.Text += "При Y = " + textBox2.Text +
Environment.NewLine;
textBox4.Text += "При Z = " + textBox3.Text +
Environment.NewLine;

double a = Math.Pow(y, x + 1);
double b = Math.Pow(Math.Abs(y - 2), 1 / 3) + 3;
double c = a / b;
double d = x + y / 2;
double f = 2 * Math.Abs(x + y);
double n = d / f;
double h = Math.Pow(x + 1, -1 / Math.Sin(z));
double i = n * h;
double g = c + i;

textBox4.Text += "g = " + g.ToString() +
Environment.NewLine;

{PascalABC}

Program Begenjov1997;

const

 n = 30; {Количество элементов массива}

 m = 10000; {Максимально возможное значение элемента}

var

 a:array[1..n] of integer;

 i, sum: integer;

 s:string;

begin

 s:=' -=Alphaeus=- ';

 for i:=1 to 22 do begin write(s[i]); sleep(60) end;

{заполняем массив случайными числами}

 writeln; randomize;

 for i:=1 to n do

   begin

     a[i]:=random(m+1);

   end;

{Ищем максимальную сумму двух соседних элементов}

 sum:=a[1]+a[2];

 for i:=2 to n-1 do

     if (a[i]+a[i+1]>sum) then sum:=a[i]+a[i+1];

{Заменяем элементы, кратные 3, наденной суммой}

 for i:=1 to n do

     if (a[i] mod 3 = 0) then  a[i]:=sum;

{Вывод}

 writeln('Массив А в обратном порядке:');

 for i:=0 to n-1 do writeln(a[n-i],'  ');

 writeln();

 writeln('Максимальная сумма двух соседних элементов равна ',sum);

end.

Program Begenjov1997;

const

 n = 30; {Количество элементов массива}

 m = 10000; {Максимально возможное значение элемента}

var

 a:array[1..n] of integer;

 i, min, max: integer;

 s:string;

begin

 s:=' -=Alphaeus=- ';

 for i:=1 to 22 do begin write(s[i]); sleep(60) end;

{заполняем массив случайными числами}

 writeln; randomize;

 for i:=1 to n do a[i]:=random(m+1);

{Ищем максимальный и минимальный элементы}

 min:=a[1]; max:=a[1];

 for i:=1 to n do

   begin

     if (a[i]>max) then max:=a[i];

     if (a[i]<min) then min:=a[i];

   end;

{Заменяем минимальные элементы на максимальные}

 for i:=1 to n do

   if (a[i] = min) then a[i]:=max;

{Вывод}

 writeln('Массив:');

 for i:=1 to n do writeln(a[i]);

end.