Задача по информатике, ** паскале пожалуйста

Question

Задача по информатике, на паскале пожалуйста

---

Answer 1

var a,b: array [1..10000] of integer;

n,i,k:integer;

begin

write('Введите количество элементов массива: ');

read(n);

write('Введите элементы массива: ');

for i:=1 to n do read(a[i]);

for i:=1 to n do

if a[i]>0 then

begin

k:=k+1;

b[k]:=a[i]

end;

for i:=1 to n do

if a[i]=0 then

begin

k:=k+1;

b[k]:=a[i]

end;

for i:=1 to n do

if a[i]<0 then</p>

begin

k:=k+1;

b[k]:=a[i]

end;

for i:=1 to n do write (b[i], ' ')

end.

Answer 2

begin

 var n := ReadlnInteger;

 var a := ReadArrInteger(n);

 a := (a.Where(t -> t > 0) + a.Where(t -> t = 0) +  

       a.Where(t -> t < 0)).ToArray;

 a.PrintLn

end.