НАДО НАПИСАТЬ ПРОГРАМКУ ПО ИНФЕ 1) Найти сумму четных цифр и произведение нечетных заданного целого числа x2) Найти кол-во четных и нечетных цифр заданного целого числа x3) Вывести удвоенное число x, если кол-во четных цифр больше нечетных заданного целого числа x и квадрат этого числа, если наоборот, т. е. нечетных больше, чем четных цифр4) определить, сколько раз в заданном числе присутствует цифра 1​

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

begin
  var b:=MatrRandom(4,4,-5,5); b.Println(3);
  var p:=1;
  var s:=0;
  Write('Элементы главной диагонали: ');
  for var i:=0 to 3 do
    for var j:=0 to 3 do
      if i<j then p*=b[i,j]
      else
        if i>j then s+=b[i,j]
        else Write(b[i,j]:3);
  Writeln(Newline,'П=',p,', S=',s)
end.

Пример
 -2 -1 -2  4
  0  1  1 -3
  0  1  5  5
  3  4  3  2
Элементы главной диагонали:  -2  1  5  2
П=-120, S=11