введите с клавиатуры массив k3n обусловьте сумму и количество положительных частей

begin

 var k3 := ReadArrInteger('Вводите', ReadInteger('n='));

 var (sum, n) := (0, 0);

 for var i := 0 to k3.Length - 1 do

 begin

   if (k3[i] gt; 0) then  

   begin

     n += 1;

     sum += k3[i];

   end;

 end;  

 println('Sum =', sum, 'n =', n);

end.