Perulangan Bersarang II (For)

Kalo di post Perulangan Bersarang I (For) kita sudah membuat perulangan bersarang, sekarang kita modifikasi sedikit(sebenarnya ini juga yang ditanyain sama temenku sih). Jadi nanti goal kita adalah :

Masukkan N : 4
10 9 8 7
6 5 4
3 2
1

Jadi peraturan sama dengan sebelumnya, hanya saja sekarang angka yang muncul dari besar ke kecil. Ok sekarang dimulai saja codingnya.

uses crt;
var i,j,n,max:integer;
begin
    clrscr;
    write('Masukkan Nilai N : ');
    readln(n);

    for i:=1 to n do
      max:=max+i;
    max:=max+1;
    for i:=n downto 1 do
    begin
        for j:=1 to i do
        begin
            max:=max-1;
            write(max,' ');
        end;
        writeln;
    end;
    readln;
end.

Hasilnya adalah :