Program P120;
var i : ^integer;
begin
 new(i); i^:=1;
 new(i); i^:=2;
 new(i); i^:=3;
 writeln(i^);
 readln;
end.