Треугольник задан длинами сторон.найти углы треугольника в паскале

Var   a,b,c: real;   ugol_alpha,ugol_betta, ugol_gamma: real; begin   write('введите  a: ');   readln(a);   write('введите  b:   ');   readln(b);   write('введите  c: ');   readln(c); if a*a+b*b-c*c=0 then writeln('данные не корректны! ') else   begin  ugol_aplha  : =(a)-sqr(b)-sqr(c))/2*b*c)); ugol_betta: =(b)-sqr(a)-sqr(c))/2*a*c)); ugol_gamma: =(c)-sqr(a)-sqr(b))/2*a*b)); write('альфа=',ugol_alpha,'   бетта=',ugol_betta: 0: 2,' гамма=',ugol_gamma: 0: 2); end; end.

#include <bits/stdc++.h>

using namespace std;

int main()

{

   int n;

   cin >> n;

   int a[n],b[n],mn = 100000, mx = 0, oko = 0,sum = 0;

   for(int i = 0; i < n; i++)

   {

       cin >> a[i];

       if(a[i] >= 0)

       {

           b[oko] = a[i];

           oko++;

       }

   }

   int index_of_minimum = 15, index_of_maximum = 0;

   for(int i = 0; i < oko; i++)

   {

       if(mn > b[i])

       {

           mn = min(mn,b[i]);

           index_of_minimum = min(index_of_minimum,i);

       }

       if(mx < b[i])

       {

           mx = max(mx,b[i]);

           index_of_maximum = i;

       }

   }

   for(int i = index_of_minimum; i < index_of_maximum + 1; i++)

   {

       sum += b[i];

   }

   mx = b[index_of_maximum - 1];

   mn = b[index_of_minimum];

   cout << sum << ' ' << mx * mn;

   

   return 0;

}