Люди я буду вам если сделать. в abc pascal net 1-2 на паскале 3 нада решить в тетради ​

#include <stdio.h>
#include <math.h>
#include <stdlib.h>

int main() {
float a_1, a_2, a_3, x;
printf ("vvod a_1, a_2, a_3\n");
scanf ("%f %f %f",&a_1,&a_2,&a_3);
printf ("Proizved = %f\n",a_1*a_2*a_3);
printf ("Sred geometr = %f\n",pow(a_1*a_2*a_3, 1.0/3));

printf ("vvod x\n");
scanf ("%f",&x);
printf ("Po form: %f\n",exp(1.0/(3*x))-abs(3*x*x-pow(pow(x+1,4)+log((pow(x,4)+4)/(pow(x,2)+2)),1.0/5)));

int a;
printf ("vvod a\n");
scanf ("%d",&a);
int c=a%10*10+a/10;
printf ("%d",c);
system ("pause");
}

Пример:
vvod a_1, a_2, a_3
2 3 5
Proizved = 30.000000
Sred geometr = 3.107233
vvod x
4
Po form: -42.913096
vvod a
71
17

int comb(vector sort)
{
int n = 0; // количество перестановок
double fakt = 1.2473309; // фактор уменьшения
int step = sort.size() - 1;

while (step >= 1)
{
for (int i = 0; i + step < sort.size(); ++i)
{
if (sort[i] > sort[i + step])
{
swap(sort[i], sort[i + step]);
n++;
}
}
step /= fakt;
}
// сортировка пузырьком
for (int i = 0; i < sort.size() - 1; i++)
{
bool swapped = false;
for (int j = 0; j < sort.size() - i - 1; j++)
{
if (sort[j] > sort[j + 1]) {
swap(sort[j], sort[j + 1]);
swapped = true;
++n;
}
}

if (!swapped)
break;
}
return n;
}