Programa sobre Casos repetitivos con " WHILE DO "
programa donde se da ciclos repetitivos





program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

//este programa nos mostrara todo los Nº naturales hasta donde pida el usuario
//Ejm
// 6=1 2 3 4 5 6 *** 10= 1 2 3 4 5 6 7 8 9 10 ***0=(no hace nada)
//**************INICIA EL PROGRAMA*************
var contador,pasos:Integer;//pasos es hasta donde llega la cuenta y contador es nuestra variable de control
                          //recuerden q el tipo integer solo llega hasta un poco mas de "21 000 000" asi q no pueden ingresar un numero mayor a ese
begin
Write('Hasta donde Cuento ' );
readln(pasos);
contador:=0;   //Contador inicializmos en 0
while contador<pasos do  //""MIENTRAS"" (contador sea menor a pasos) "HACER"
begin
contador:=contador+1; //contador aumenta de uno en uno en cada ciclo.
Write(contador);//Escribimos lo q esta alacenado en contador
write(' ');//esto es un " "(espacion) para q se vea mejor
end;
readln;

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