Пожалуйста посчитайте с Паскалем. Задание в прикрепленных.

var
  n, i: integer;
  ar: array[1..10000]of integer;
 
begin
  read(n);
  for i := n downto 1 do
  begin
    ar[i] := i;
    write(ar[i], ' ');
  end;
end.