var
	a : Integer;
	b : ^Integer;
begin
	a := 3;
	b := @a;	
	WriteLn(b[0]);
	a := 5;
	WriteLn(b[0]);
end.