Program Ej_for;
Uses Crt;
Var
   Valor_final, contador : integer;
Begin
     ClrScr;
     Write('Escribe el numero de iteraciones : ');
     ReadLn(valor_final);
     for contador:= 1 to valor_final do
     WriteLn ('Iteracion : ',contador);
     ReadKey
end.