p1.mod

   1 modulo p1
   2 importacion: p2
   3 exportacion:
   4    clase Programa1
   5    {
   6       oculto entero i;
   7
   8       inicio()
   9       {
  10          Clase1 j;
  11          M obj;
  12
  13          obj := crear(M);
  14          i:=1;
  15          mientras (i<=10) hacer
  16             obj.modificar(i);
  17             j := obj.consultar();
  18             escribir(j);
  19             i:=i+Clase1.valor;
  20          finmientras
  21        }
  22    }
  23
  24
  25 implementacion:
  26    clase Clase1
  27    {
  28       entero valor;
  29
  30       consultar() dev entero
  31       {
  32          dev valor;
  33       }
  34    }