Program Ukazatel;

var Cislo1, Cislo2 : ^integer;

begin
  new(Cislo1);
  Cislo1^:=12;
  Cislo2:=Cislo1;
  writeln('Cislo1: ',Cislo1^,' Cislo2: ',Cislo2^);
  readln;
end.