Actividad 2
Construye la idea
ejemplo 1

Contador:=0;

read(num);

WHILE num>0 DO

BEGIN

   contador:=contador+1;

   read(num)

END;

writeln(‘Número de enteros positivos=’,contador);

ejemplo 2

Contador:=0;                                                     (*Inicializar el contador*)

i:=;                                                            (*Inicializara la variable de control del ciclo*)

WHILE i=20 DO                                                (*Continuar hasta que i>20*)

BEGIN

      read(num);                                                   (*capturar el siguiente dato de estrada*)

      IF num>0

      THEN contador: contador+1 contador;

      i:=i+1                                                 (*Incrementar la variable de control de ciclo*)

END;

Writeln (‘El número de enteros positivos es’, contador:1)