{
   Programa para contagem em ordem decrescente.
} 
program decrescente;
var
   n : integer;
begin
   write('N: ');
   read(n);
   while (n >= 0) do
   begin
      writeln(n);
      n := n-1;
   end;
end.