Помогите с информатикой 10 класс, нужны программы в паскале для 3 варианта!

begin

var n := ReadInteger('n=');

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

a.Println;

var k1, k2: integer;

var r := n div 3;

case n mod 3 of

0: (k1, k2) := (r, r);

1: (k1, k2) := (r + 1, r);

2: (k1, k2) := (r + 1, r + 1)

end;

a[:k1].Aggregate(int64(1), (p, q)-> p * q).Println;

a[k1:k1 + k2].Where(t -> t > 0).Sum.Println;

a.Reverse.Println;

a.Where(t -> t = 0).Count.Println

end.