MODULE Test4; VAR a : POINTER TO RECORD END; b : POINTER TO ARRAY OF INTEGER; c : PROCEDURE; BEGIN a := NIL; b := NIL; c := NIL; END Test4. Проверка присвоения NIL