ejeml¿plo 2 enscracht

que instrucciones de scracht implementan el ejemplo sisguiente?

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

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

WHILE i<20 DO                        (*Continuar hasta que i>20 sea verdadera*)

BEGIN

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

      IF num>0

      THEN contador:=contador+1;

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

END;