Este programa contara de forma inversa desde
el numero q le demos hasta el 0





program Project14;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i,x:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }

write('ingrese un valor ');
readln(x);
writeln('su cuenta regresiva es');
for  i:=x  downto 0 do  {Igual al "for to do" pero con una sola
                         diferencia "for to do" aumenta en 1 hasta
                         donde le dijimos el "for downto do" disminuye
                         en 1 hasta donde le digamos}
begin
write(i,' '); //escribe valor de "I"
end;
readln;

end.