programa que repite los mismos pasos hasta que se cumple una condicion " UNTIL " " HASTA QUE "





program Project4;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var contador,pasos:Integer; //contador es la variable de control 			    
			    //del ciclo
begin
Write('Hasta donde Cuento ' );
readln(pasos);
contador:=0;		    //contador se inicializa en cero porque
                            //aun no se ha completa ningun ciclo

repeat                   //aqui inicia el ciclo "REPETIR"
contador:=contador+1;	 //el ciclo da un giro el contador aumenta en 1
Write(contador);
write(' ');
until (contador=pasos);  //"HASTA QUE" "contador sea igual 
			 //a pasos

readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

end.