5. Запиши правильную последовательность цифр так чтобы получилась программа в результате которой получается рисунок

1.

const num_1 = 10/52;

const num_2 = sqrt(54.7);

var

 result:real;

 function sum(a,b:real):real;

 begin

    sum:=a+b;

 end;

begin

 result:=sum(num_1, num_2);

 writeln(result);

end.

2.

const x = 41.3;

const basis = 10;

var

 result:real;

begin

 result:=ln(x)/ln(basis);

 writeln(result);

end.

3.

const x = 7.5;

const y = 9.6;

var

 result : real;

 function root(x, y:real):real;

 begin

 root := exp(ln(x)/3) * exp(ln(y)/4);

 end;

begin

 result:=root(x,y);

 writeln(result);

end.

4.

const x = 1.6;

const y = 1.3;

var

 result:real;

 function gen(x,y:real):real;

 var  

   res:real;

 begin

   res:=cos(y);

   gen:=sin(x)*power(res, 3);

 end;

begin

 result:=gen(x,y);

 writeln(result);

end.

Начнем с формул.
Площадь треугольника: S = 1/2*a*b*sin C
Отсюда: sin C = 2*S/(a*b); cos C = sqrt(1 - sin^2 C)
tg C = sin C / cos C; C = atan(tg C)
Теорема косинусов: c = sqrt(a^2 + b^2 - 2*a*b*cos C)
Площадь: S = c*h/2; отсюда h = 2*S/c
Теорема синусов: a/sin A = b/sin B = c/sin C
Отсюда: sin A = a/c*sin C; sin B = b/c*sin C
cos A = sqrt(1 - sin^2 A); cos B = sqrt(1 - sin^2 B)
tg A = sin A/cos A; A = atan(tg A);
tg B = sin B/cos B; B = atan(tg B)
Периметр: P = a + b + c
Теперь записываем в Паскале
singam := 2*S/(a*b); cosgam = sqrt(1 - singam*singam);
tangam := singam/cosgam; Gamma := atan(tangam);
c := sqrt(a*a + b*b - 2*a*b*cosgam); h := 2*S/c;
P := a + b + c;
sinalp = a/c*singam; cosalp = sqrt(1 - sinalp*sinalp);
tanalp := sinalp/cosalp; Alpha := atan(tanalp);
sinbet = b/c*singam; cosbet = sqrt(1 - sinbet*sinbet);
tanbet := sinbet/cosbet; Beta := atan(tanbet);