text: Присваивание значения целому варианту указателя позволяет читать и изменять любой участок системной памяти: PP^.L := 0; PP := PP^.P; (* PP указывает на адрес 0 *) K := PP^.L; (* K содержит значение слова по адресу 0 *) Writeln(' Слово по адресу 0 данной машины содержит ', K); Эта программа может работать корректно или обрушиться, если адрес 0 защищён от чтения, в зависимости от операционной системы.