Var P,Ll : Pointer;
    T2 : ^Pointer;
    T1 : ^Longint;
Begin
t1  := ptr(0,0);
t1^ := 0;
End.