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