> -- Kemet писал(а):
> Ну это уже в программе на АО.Всё-равно не понятно.
Это здесь?## Код:
```
PROCEDURE var*(context: Commands.Context);
VAR
   aName, aVar: ARRAY 256 OF CHAR;
BEGIN
   context.arg.SkipWhitespace();
   context.arg.Token(aName);
   IF (aName[0] # 0X) & GetEnvVar(aName, aVar) THEN
      context.out.String(aName);
      context.out.Char('=');
      context.out.String(aVar);
      context.out.Ln
   END;
END var;
```
Так контекст же здесь и так передаётся и мы как читаем через него параметры так и выводим результат.