Вывести на печать четные элементы таблицы

vara: array[1… 10,1… 10] of integer; i,j: integer; beginfor i: =1 to 10 dofor j: =1 to 10 doa[i,j]: =random (51); for i: =1 to 10 dofor j: =1 to 10 doif (a[i,j] mod 2=0) then write (a[i,j]); end.