Probleme Pascal – Afisarea unui trunghi de numere

6. Să se afişeze în fişierul “tri1.txt” triunghiul de numere:

n n-1 n-2…3 2 1
……………
3 2 1
2 1
1

program prob21;
var f:text;
i,j,n:integer;
begin
write(‘n=’); readln(n);
assign(f,’tri1.txt’);
rewrite(f);
for i:=n downto 1 do begin
for j:=i downto 1 do write(f,j:4);
writeln;
end;
close(f);
end.

unde n este un număr natural citit de la tastatură.