Пустой

дать x := Пустой.
Stdout написать: x пустой?, стоп.
Истина