Program Ej_downto;
 Uses Crt;
 Var
 valor_final, contador : integer;
 begin
 ClrScr;
 Write('Escribe el numero de iteraciones : ');
 ReadLn(valor_final);
 for contador:= valor_final downto 1 do
 WriteLn('Iteraciones : ', contador);
 Readkey
 end.