> -- Евгений Темиргалеев писал(а):
> Главное --- не забыть цену и не применить на автомате там, где это может выйти боком.Абсолютно поддерживаю. И считаю, что для каждого типа приложений должны применяться особые паттерны, без попыток универсализации!

> -- Евгений Темиргалеев писал(а):
> Мне наоборот больше нравится код, который "ближе к реалиям железа". Пусть он объёмный, но суть очевидна, проглатывается быстроДа, есть такое дело. К тому же, я заметил за собой, что чем старше исходник, тем больше мне нравится его "многословность", когда ничего не скрыто и не спрятано за мудрёными конструкциями. Но вот есть такой этап в разработке, когда продумываешь логику и хочется побыстрее её "увидеть", пощупать. Тут "многословность" немного мешает.

> -- Евгений Темиргалеев писал(а):
> P.S. Название SternDates.(0, 0, 0) меня по началу ввело в заблуждение. Может лучше что-то типа MakeTime?Да у меня там уже была процедура Time, с сигнатурой
## Код:
```
PROCEDURE Time (h, m, s: INTEGER; VAR t: Dates.Time);
```
а GetTime - экспериментальная