1)var x,y,z,a,k1,k2,b:real;
begin;
x:=7;
y:=4;
z:=8;
k1:=power(sin(abs(3*power(x,3)+5*sqr(y)+15*z)),3);
{power() возводит свой первый аргумент в степень второго}
k2:=sqrt(sqr(12*power(x,3)+6*sqr(y)-z)+3.14);
a:=abs(k1/k2);
writeln('A=',a);
b:=tan(7*sqr(x)+power(E,3*sqr(y)-z));
{я так понимаю, в B имелась в виду экспонента}
writeln('B=',b);
end.
2)Const
n=4;
var a,b,c,s:real;
ar:array of real;
i:integer;
procedure BubbleSort(var Arr:array of Real;const N:Integer);
var
I,J:integer;
Tmp:real;
begin
for i:=Pred(N) downto 1 do
for j:=0 to Pred(i) do
if Arr[j]>=Arr[j+1] then
begin
Tmp:=Arr[j];
Arr[j]:=Arr[j+1];
Arr[j+1]:=Tmp;
end;
end;
procedure Pl(var a,b,c,s:real);
var p:real;
begin;
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
begin;
SetLength(ar,n+1);
readln(a);
readln(b);
readln(c);
if (a>=(b+c)) or (b>=(a+c)) or (c>=(a+b)) then
begin;
writeln('error');
exit;
end;
Pl(a,b,c,s);
ar[1]:=a;
ar[2]:=b;
ar[3]:=c;
ar[4]:=s;
BubbleSort(ar,n);
for i:=1 to n do
writeln(ar[i]);
end.