> -- Виктор О писал(а):
> будет работать. По правилам Ньютона

А кто мешает, заводим тип для физ. величин в СГС
## Код:
```
TYPE PhysVariable = RECORD
      v: REAL;
      c, g, s: INTEGER;
      END;

PROCEDURE MulPhysVariable (IN x, y: PhysVariable; OUT z: PhysVariable);
BEGIN
   ASSERT(z.c = x.c + y.c); ASSERT(z.g = x.g + y.g); ASSERT(z.s = x.s + y.s);
   z.v := x.v * y.v;
END MulPhysVariable;
...
```

и вперед! Громоздко, правда, но если хочется непременно по-ньютону