program parametros_por_valor;
	uses
	  crt;
	var
	  X,Y:integer;
	  A,B:real;
	  GA,GB:real;
	  MEDIA:real;	

	function calcula_media(a,b:real):real;
	var
	  x,y:integer; { locais }
	  nota:real;
	begin
	  x:=10;
	  y:=10;
	  nota:=(a+b)/2;
	  a:=10.0;
	  b:=10.0;
	  calcula_media:=nota;
	end;
	
	var
	  Z:real;
	begin
	  clrscr;
	  X:=-1;
	  Y:=-1;
	  Z:=-1;
	  A:=-1.0;
	  B:=-1.0;
	  GA:=6.0;
	  GB:=8.0;
	  writeln('ANTES...');
	  writeln(' X: ',X);
	  writeln(' Y: ',Y);
	  writeln(' A: ',A:2:2);
	  writeln(' B: ',B:2:2);
	  writeln('GA: ',GA:2:2);
	  writeln('GB: ',GB:2:2);
	  writeln;
	  writeln('Calcula media...');
	  MEDIA:=calcula_media(GA,GB);
	  writeln('M‚dia: ',MEDIA:2:2);
	  writeln;
	  writeln('ANTES...');
	  writeln(' X: ',X);
	  writeln(' Y: ',Y);
	  writeln(' A: ',A:2:2);
	  writeln(' B: ',B:2:2);
	  writeln('GA: ',GA:2:2);
	  writeln('GB: ',GB:2:2);
	  readkey;
	  { Watch: a,b,x,y,ga,gb,nota }
	end.