Сделать следущие задачки на языке pascal abc 2. Ввести В. Если

///1program Number1;
var  b, xi: Integer; 
 x, y: Real;
begin 
Writeln('Enter number B:'); 
Read(b); 
if (b lt; 10) then Writeln(2 * b) 
else if (b gt;= 10) then 
begin   
for xi := -3 to 1 do   
begin     
 x := x + 0.1;     
y := sqr(x) - x + (sin(1 / b + x) / cos(1 / b + x));     
Writeln('X= ', x:0:1, ' Y= ', y:0:1);   
end; 
end;
end.

//////2
var n,j,s:Integer; ser:Real; 
X:Array[1..10000] of Integer;
Begin 
writeln('Enter N: '); 
Read(n);
 for j:=1 to n do  Read(X[j]); 
for j:=1 to n do  if (X[j]lt;-2) or (X[j]gt;2) then    s:=s+X[j]; 
  av:=s/n; 
if (avgt;2) then   
begin   
X[1]:=1;   
X[n]:=1;   
end   
else   
begin     
X[1]:=0;   
 X[n]:=0;   
 end; 
for j:=1 to n do  Write(X[j],' ');
end.

/////3
var n,s,p:Integer;
A:Array[1..10000] of Integer;
Begin 
Write('Enter N: '); 
Read(n);
 for p:=1 to n do  Read(A[p]); 
for p:=1 to n do 
 if (A[p]gt;0) and (A[p] mod 3 lt;gt; 0) then s:=s+A[p];
 for p:=n div 2 to n do   A[p]:=s; 
for p:=1 to n do  Writeln('Otvet: ',A[p]);
end.

1.

var b:Integer;
x,y:Real;
Begin
 Writeln('Введите число B');
 Read(b);
 x:=-3;
 if (blt;10) then Writeln(2*b)
  else if (bgt;=10) then
   begin
    while(xlt;=1) do
     begin
      x:=x+0.1;
      y:=sqr(x)-x+(sin(1/b+x)/cos(1/b+x));
      Writeln('При x = ',x:0:1,' y = ',y:0:2);
     end;
  end;
 end.

2.
var
n,i,sum:Integer;
avarage:Real;
X:Array[1..1000] of Integer;
Begin
 Read(n);
 for i:=1 to n do
  Read(X[i]);
 for i:=1 to n do
  if (X[i]lt;-2) or (X[i]gt;2) then
    sum:=sum+X[i];
    avarage:=sum/n;
  if (avaragegt;2) then
   begin
    X[1]:=1;
    X[n]:=1;
   end
   else
    begin
     X[1]:=0;
     X[n]:=0;
    end;
 for i:=1 to n do
  Write(X[i],' ');
end.

3.
var n,sum,i:Integer;
A:Array[1..1000] of Integer;
Begin
 Read(n);
 for i:=1 to n do
  Read(A[i]);
 for i:=1 to n do
  if (A[i]gt;0) and (A[i] mod 3 = 0) then sum:=sum+A[i];
 for i:=n div 2 to n do
   A[i]:=sum;
 for i:=1 to n do
  Write(A[i],' ');
end.