А так:
## Код:
```
In.Open; 
 WHILE In.Done DO
   In.Int(q);
   w:=w+q;
 END;
   StdLog.Int(w);
```

Тоже на 2 2 2 восьмерку дает...

Думал что мешает старая загрузка. выполнил Compile and Unload но все равно...
Чего-то недопонимаю а чего...

Вот если зарядить:
## Код:
```
FOR i:=1 TO 3 DO
   In.Int(q);
   w:=w+q;
 END;
```

Отрабатывает верно, значит я неверно понимаю работу Done?


Все Наконец то дошло!!!
## Код:
```
MODULE q;
IMPORT In, StdLog;

PROCEDURE aga*;
VAR 
 i,q,w:INTEGER;
BEGIN 
 w:=0;
 StdLog.Clear;
 In.Open; 
 In.Int(q);
 WHILE In.Done DO
   w:=w+q;
   In.Int(q);
 END;
   StdLog.Int(w);
   StdLog.Ln;
END aga;

END q.
q.aga
```


Я действительно не в ту степь поехал

Всем спасибо за терпение, думаю у меня еще будут подобные вопросы.
