program p; var a,b:integer; c:real; forward p2; {for procedure p1 to call procedure p2} procedure p1 (x:integer; var y:integer); var c:integer; pt:^integer; {pointer declaration} begin { (1) } writeln(a,b,x,y); new (pt);
__________________
Website Development
Domain Name Forum