Program P134;
 { Tipul de date pointer }
var p : pointer;
 i, j : ^integer;
 x, y : ^real;
 r, s : ^string;
begin
 { p va identifica o variabilă dinamică de tipul integer }
 new(i); i^:=1;
 p:=i;
 new(i); i^:=2;
 j:=p;
 writeln('j^=', j^); { se afişează 1 }
  { p va identifica o variabilă dinamică de tipul real }
 new(x); x^:=1;
 p:=x;
 new(x); x^:=2;
 y:=p;
 writeln('y^=', y^); { se afişează 1.0000000000E+00 }
  { p va identifica o variabilă dinamică de tipul string }
 new(r); r^:='AAA';
 p:=r;
 new(r); r^:='BBB';
 s:=p;
 writeln('s^=', s^); { se afişează AAA }
 readln;
end.