[dsw-obn.git] / Test26.obn

MODULE Test26;

VAR
  x : SHORTINT;
  y : LONGINT;

BEGIN
  y := x + SHORT(y);
END Test26.

Тест приведения типа.