MODULE Test26; VAR x : SHORTINT; y : LONGINT; BEGIN y := x + SHORT(y); END Test26. Тест приведения типа.