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