uses
  crt;
  
const
  n = 5;
  m = 5;
  
var
  i, j :integer;
  
  NM :array [1..n,1..m] of integer;

begin

  for i:= 1 to n do
    for j:= 1 to m do
      readln(NM[i,j]);
      
  for i:= 1 to n do
  begin
    for j:= 1 to m do
    begin
      if j mod 2 = 1 then
      begin
        textcolor(green);
        write(NM[i,j]:4);
      end
      else begin
        textcolor(red);
        write(NM[i,j]:4);
      end;
    end;
    writeln;
  end;

end.