DmiDru_1

Var
    A: Array [1..5, 1..5] Of Integer;
    I, J: Integer;
Begin
    For J:= 1 To 5 Do Begin
      For I:= 1 To 5 Do Begin
        If J Mod 2 = 1 Then
          A[I, J]:= I
        Else
          A[I, J]:= 6 - I;
        Write(A[I, J], ' ');
      End;
      WriteLn;
    End;
    ReadLn;
End.