Зачем Морозко приготовил разные ледяные крышки? Найди ответ в тексте

Var
  n : integer;
begin
  read (n);
  while n > 0 do
  begin
    write (n, ' ');
    n := n - 1;
  end;
end.