## Код:
```
MODULE Gu;
IMPORT Dialog;
VAR age*: BYTE;
PROCEDURE ageNotifier* (op, from, to: INTEGER);(*Эта процедура не даёт ввести возраст более 120 лет*)
BEGIN
   IF age > 120 THEN
         age := 120;(*то ли присваивание не работает*)
         Dialog.UpdateByte(age);(*то ли обновление*)
         Dialog.Beep
      END
END ageNotifier;
END KnyshGu.
```

## Код:
```
MODULE Gu;
IMPORT Dialog;
VAR age*: INTEGER;
PROCEDURE ageNotifier* (op, from, to: INTEGER);(*Эта процедура не даёт ввести возраст более 120 лет*)
BEGIN
   IF age > 120 THEN
         age := 120;
         Dialog.UpdateInt(age);
         Dialog.Beep
      END
END ageNotifier;
END KnyshGu.
```

Почему первый код не работает, а второй работает?