Вводиться число n вывести на экран по образцу (программа в pascal abc) 1 2 3 4 2 3 4 3 4 n

Var
  i, j, N:integer;

begin
  readln(N);
  for i:=1 to N do
  begin
    for j:=i to N do
     write(j, ' ');
  writeln;
  end;
end.