TURBO PASCAL

5)While

 La idea del While es repetir un bloque de código hasta que una condición dada sea falsa y mientras sea verdadera.

Su sintaxis formal es:

While <cond> Do
     <bloque>;

Si hay que colocar mas de una sentencia en While, se deben de colocar entre un Begin y un End;.

Veamos el siguiente ejemplo:

Program Suma;
Uses
     CRT;
Var
     N,num,cont,suma:integer;

Begin
     CLRSCR;
     Write ('¿Cuantos numeros   desea ingresar?');
     Readln (N);
     suma:=0;
     cont:=1;
     While cont<=N Do
          Begin
               Write ('Ingrese  Numero:');
               Readln (num);
               suma:=suma+num;
               cont:=cont+1;
          End;
          Writeln ('La suma total es: ',suma);
     Readln;
End.