Помогите сделать 6 вариант

//Pascal ABC.NET 3.1 сборка 1219

//1
Var
 t,p,z,x,y:real;
begin
 read(x,y);
 t:=power(power(x,4)+sqr(y),1/3);
 p:=x*y+sqrt(x+y);
 z:=p/t;
 writeln(z);
end.

//2
Var
 t,z,f:real;
begin
 read(t,z);
 if zlt;-1.2 then f:=t+t*power(z,3);
 if (zgt;=-1.2) and (zlt;=-0.1) then f:=ln(абс(z))+t;
 if zgt;-0.1 then f:=log10(1+sqrt(abs(z)+t));
 writeln(z);
end.

//3
Var
 x,f:real;
 i:integer;
begin
 i:=1;
 x:=1.2;
 while xlt;=2.5 do
  begin
   f:=sin(power(x,3)+1/x);
   writeln('f(',x,')=',f);
   x:=1.2;
   inc(i);
   x:=x+i*0.1;
  end;
end.

//4
Const
 n=10;

 Var
 ar:array[1..n] of integer;
 i,s:integer;
 sr:real;
begin
 randomize;
 writeln('Array:');
 for i:=1 to n do
  begin
   ar[i]:=random(10);
   write(ar[i]:4);
   s:=s+ar[i];
  end;
 sr:=s/n;
 writeln;
 writeln('Сумма=',s);
 write('Среднее арифметическое=',sr);
end.