Линейный алгоритм.

uses crt;
var
x,y,z,a,b,znach:real;
begin clrscr;
write('x=');
read(x);
write('y=');
read(y);
write('z=');
read(z);
writeln;
a:=ln(exp(-1*sqrt(abs(x+1))*ln(y)));
b:=sqr(sin(arctan(z)));
znach:=a*b;
writeln('znachenie=',znach:3:4);
readkey;
end.

uses crt;
var
a:array[1..20]of integer;
i,min,kol,j:integer;
begin clrscr;
randomize;
kol:=0;
writeln('ishodnyi massiv:');
for i:=1 to 20 do begin
a[i]:=random(30)-10;
write(a[i], '  ');
end;
for i:=20 downto 1 do
if a[i]<0 then j:=i;
writeln;
writeln('poluchennyi massiv:');
for i:=1 to j do
write(a[i], '  ');
min:=a[1];
writeln;
writeln('++++++++++++++++++++++++++');
for i:=1 to j-1 do
 begin
  if a[i]<min then min:=a[i];
  inc(kol);
 end;
writeln;
writeln('kol-vo=', kol);
writeln('min=',min);
readkey;
end.