[DelphiM0ZG]

Код:

program Project1;

{$APPTYPE CONSOLE}

Var
  A: Array[0..99, 0..99] Of Integer;
  i, j, n: Byte;

begin
  Write(' N = ');
  ReadLn(N);

  For i:=0 To N-1 Do
    For j:=0 To N-1 Do
      If (i+j=N-1) Then A[i, j]:=i+1
      Else A[i, j]:=0;

  For i:=0 To N-1 Do
    Begin
      For j:=0 To N-1 Do
        Write(' ', A[i, j]:3);
      WriteLn;
    End;

  ReadLn;
end.

А в чём, собственно, была проблема? Задачка-то детская...