// Исходный массив
begin
  var arr: array of integer := new integer[25];
  for var i := 0 to arr.Length - 1 do arr[i] := ReadLnInteger('Введите ' + Succ(i) + ' элемент:');
  WriteLn('Исходный массив A:');
  for var i := 0 to arr.Length - 1 do Write(arr[i]:4);
end.

// Задание 1
begin
  var arr: array of integer := new integer[25];
  for var i := 0 to arr.Length - 1 do arr[i] := ReadLnInteger('Введите ' + Succ(i) + ' элемент:');
  WriteLn('Исходный массив A:');
  for var i := 0 to arr.Length - 1 do Write(arr[i]:4);
  WriteLn;
  var brr: array of integer := new integer[25];
  WriteLn('Полученный массив B:');
  for var i := 0 to brr.Length - 1 do
  begin
    brr[i] := arr[i] - 10;
    Write(brr[i]:4);
  end;
end.

// Задание 2
begin
  var arr: array of integer := new integer[25];
  for var i := 0 to arr.Length - 1 do arr[i] := ReadLnInteger('Введите ' + Succ(i) + ' элемент:');
  WriteLn('Исходный массив A:');
  for var i := 0 to arr.Length - 1 do Write(arr[i]:4);
  WriteLn;
  var sum := 0;
  for var i := 3 to 19 do sum += arr[i];
  WriteLn('Сумма элементов массива с 4 по 20: ' + sum);
end.

// Задание 3
begin
  var arr: array of integer := new integer[25];
  for var i := 0 to arr.Length - 1 do arr[i] := ReadLnInteger('Введите ' + Succ(i) + ' элемент:');
  WriteLn('Исходный массив A:');
  for var i := 0 to arr.Length - 1 do Write(arr[i]:4);
  WriteLn;

  WriteLn('Элементы массива кратные четырем:');
  var flag := false;
  for var i := 0 to arr.Length - 1 do
    if arr[i] mod 4 = 0 then
    begin
      WriteLn('Индекс: ' + i + ', значение: ' + arr[i]);
      flag := true;
    end;
    if not flag then WriteLn('отсутствуют :(');
end.

// Задание 4
begin
  var arr: array of integer := new integer[25];
  for var i := 0 to arr.Length - 1 do arr[i] := ReadLnInteger('Введите ' + Succ(i) + ' элемент:');
  WriteLn('Исходный массив A:');
  for var i := 0 to arr.Length - 1 do Write(arr[i]:4);
  WriteLn;

  var flag := false;
  var sum := 0;
  for var i := 0 to arr.Length - 1 do
    if (arr[i] > 0) and (arr[i] mod 2 = 0) then
    begin
      sum += arr[i];
      flag := true;
    end;
  if flag then WriteLn('Сумма положительных четных элементов: ' + sum)
  else WriteLn('Положительные четные элементы отсутствуют :(');
end.