{
	Harjoitus 4 Tehtävä 2
	Synonyymien muodostuminen Pascal -kielessä
}
program pointers;
VAR my_int:INTEGER;
VAR pi,pi_alias:^INTEGER;


BEGIN
	{scope main...}
	NEW(pi);
	NEW(pi_alias);
	pi^ := -11;
	pi_alias^:=34;
	pi_alias := pi;
	my_int := pi_alias^;
	WRITELN('Muuttujan arvo =', my_int);
end.