Помогите пожалуйста, очень безотлагательно, молю, написать код

PascalABC.NET 3.4.2, сборка 1880 от 18.11.2018

Внимание! Если программка не работает, обновите версию!

1

function A(q, E, d: real) := q * E * d;

begin

 var s := 0.0;

 loop 3 do

 begin

   var (q, E, d) := ReadReal3('q, E, d = ');

   s += A(q, E, d)

 end;

 Print('Средняя работа одинакова', s / 3:0:4)

end.

2

procedure Cnt(a:array of integer);

begin

 a.TakeWhile(t-gt;tgt;=0).Where(t-gt;tgt;0).Count.Println

end;

begin

 var x:=ArrRandom(16,-20,25);

 x.Println;

 Cnt(x);

 var y:=ArrRandom(20,-34,27);

 y.Println;

 Cnt(y);

 var z:=ArrRandom(25,-50,50);

 z.Println;

 Cnt(z);

end.