Хелп плз с ифнорматикой Очень много

Где фото???

Давай с чем та?

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrRandom(6,5,-50,50); a.Println(4); Writeln;
  var res:=new int64[6];
  for var i:=0 to 5 do
    if i.IsEven then
      res[i]:=a.Row(i).Aggregate(int64(1),(x,y)->x*y)
    else
      res[i]:=a.Row(i).Sum;
  Writeln('Результаты:'); res.Println(NewLine)
end.

Пример
 -32  22  12   8 -38
  45  22 -12  26  -2
 -46  12  19  42  -1
  19   5  29 -41 -41
  10 -23   2 -19  10
  -4  22  15  34  34

Результаты:
2568192
79
440496
-29
87400
101

1) Birthday1.asf - 24.12.15 Birthday2.asf - 15.07.16 Clip_1.mpeg - 24.07.14 Clip_2.mov - 24.10.16 Clip_3.mov - 01.07.14 Family.avi - 12.08.13 Friends1.mov - 25.07.14 Friends2.mov - 04.01.14 Video1.avi - 19.07.14 Video2.avi - 21.11.13 Video3.wmv - 24.06.14 Video4.wmv - 10.07.15 2) Birthday2.asf - 15.07.16 Clip_1.mpeg - 24.07.14 Clip_3.mov - 01.07.14 Family.avi - 12.08.13 Friends2.mov - 04.01.14 Video2.avi - 21.11.13 Video4.wmv - 10.07.15 3) Family.avi - 12.08.13 Video2.avi - 21.11.13 Friends2.mov - 04.01.14 Clip_3.mov - 01.07.14 Clip_1.mpeg - 24.07.14 Video4.wmv - 10.07.15 Birthday2.asf - 15.07.16 Итог : Video2.avi - 21.11.13 Clip_3.mov - 01.07.14 Clip_1.mpeg - 24.07.14 Video4.wmv - 10.07.15 Birthday2.asf - 15.07.16 ответ: 5