Помогите, пожалуйстаЕсли что, это паскаль

Question

Помогите, пожалуйстаЕсли что, это паскаль

---

Answer 1

begin

 var n := 20;

 var a := ArrRandom(n, -10, 10);

 a.Println;

 var b := new List;

 var c := new List;

 var d := new List;

 for var i := 0 to n - 1 do

   if a[i]

     b.Add(a[i])

   else if a[i] > 2 then

     c.Add(a[i])

   else if Abs(a[i]) < 2 then

     d.Add(a[i])

 b.Println;

 c.Println;

 d.Println;

end.