Program visualizza_numero(input,output);
var k,n:integer;

Begin
     Repeat
     Writeln('Quanti numeri vuoi visualizzare?');
     Readln(n);
     if n<0 then writeln('hai inserito un numero negativo');
     until n>0;
     For k:=n downto 1 do
     Writeln(k);
end.