Задайте двумерный массив размерности 3х3. Выведите массив в виде матрицы. Найдите сумму четных элементов второй строки.

vara: array[1..3, 1..3] of integer;i, j, s: integer;beginfor i:=1 to 3 dofor j:=1 to 3 doreadln(a[i,j]);for i:=1 to 3 dobeginfor j:=1 to 3 dowrite(a[i,j], ' ');writeln;end;s:=0;for i:=1 to 3 doif a[2,i] mod 2 = 0 theninc(s, a[2, i]);writeln(s);end.