Заполнить двухмерный массив 20 баллов!
1 0 1 0 1
0 1 0 1 0
1 0 1 0 1
0 1 0 1 0

//Pascalvar  A: array[1..4, 1..5] of byte;  i, j: byte;beginfor i := 1 to 4 dobegin  for j := 1 to 5 do  begin    if i mod 2 = 0 then     begin      if j mod 2 = 0 then A[i, j] := 1      else A[i, j] := 0;      end      else      begin      if j mod 2 = 1 then A[i, j] := 1      else A[i, j] := 0;      end;        write(A[i, j]:3);   end;   writeln;end;     end.