Паскаль! ! дана матрица. вставить в нее столбец из нулевых элементов после последнего столбца, в котором количество четных элементов меньше 5. если таких столбцов нет - выдать соответствующее сообщение.

// pascalabc.net 3.3, сборка 1549 от 17.10.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var (i,k): =(0,-1);   foreach var c in a.cols do       if c.where(e-> e.iseven).count< 5 then k: =i       else i+=1;   if k> =0 then begin       writeln('*** матрица - результат [',n,',',m+1,'] ***');       setlength(a,n,m+1);       for var c: =a.colcount-1 downto k+1 do           a.setcol(c,a.col(c-1));       a.setcol(k+1,arrfill(a.rowcount,0));       a.println(4)       end   else writeln('нет столбцов с количеством четных элементов, меньшим 5') end. пример количество строк в матрице: 8 количество столбцов в матрице: 6 *** исходная матрица [8,6] ***   38 -44  50  20 -85 -92   15 -43  43    6 -80  63   76    2 -63  32  14 -37   -78 -30  94 -45  44 -25   -74  30  15 -56 -41 -88   72 -15 -74  38 -47 -76   11 -75  -2  70  35  65   -52 -42    9  94  59 -28 *** матрица - результат [8,7] ***   38 -44  50  20    0 -85 -92   15 -43  43    6    0 -80  63   76    2 -63  32    0  14 -37   -78 -30  94 -45    0  44 -25   -74  30  15 -56    0 -41 -88   72 -15 -74  38    0 -47 -76   11 -75  -2  70    0  35  65   -52 -42    9  94    0  59 -28

Задача 5: Летоисчисление

В григорианском календаре года нумерются числами 1, 2, 3 и т.д., это года “нашей эры”. Предшествующие года называются “первый год до нашей эры”, “второй год до нашей эры” и т.д.

Будем обозначать года нашей эры положительными числами, а года до нашей эры — отрицательными. При этом года с номером 0 не существует, то есть нумерация лет выглядит так: ..., −3, −2, −1, 1, 2, 3, ...

В летописях написано, что какое-то событие произошло в году номер A, а другое событие произошло спустя n лет после первого события (или за n лет до первого события). Определите, в каком году произошло второе событие.

Входные данные

Первая строка входных данных содержит число A — год, в котором произошло первое событие. Вторая строка содержит число n. Если n > 0, то второе событие произошло через n лет после первого события, а если n < 0, то второе событие произошло за |n| лет до первого события. Оба числа могут быть как положительными, так и отрицательными.

Выходные данные

Программа должна вывести одно целое число — номер года, в который произошло второе событие.

Система оценивания

Решение, правильно работающее только для случаев, когда все входные числа по модулю не превосходят 100, будет оцениваться в 6 баллов.

В 10 баллов будет оцениваться решение, правильно работающее, когда все входные числа по модулю не превосходят 109.

Объяснение: