program PointerProgram;
Var
   i : Integer;
   p : ^Integer;
begin
    i := 101;
    p := @i;
    writeln('Hello, World!');
    writeln('p^ = ',p^);
end.