program prog;
  (*Parametros por valor*)
  procedure m1(a: integer;b: integer;c:integer);
  begin
	a:=100;
	b:=200;
	c:=300;
	writeln('Valores cambiados en el m1() a:',a,'  b:',b,' c:',c); (* Imprime a:100 b:200 c:300 *)
  end;
  (*Parametros por referencia*)
  procedure m2(var a: integer;var b: integer;var c:integer);
  begin
	a:=100;
	b:=200;
	c:=300;
	writeln('Valores cambiados en el metodo m2() a:',a,'  b:',b,' c:',c); (* Imprime a:100 b:200 c:300 *)
  end;
  
  var a:integer;
    b:integer;
	c:integer;
begin
  a:=10;
  b:=20;
  c:=30;
  writeln('Valores antes de llamar a m1() a:',a,'  b:',b,' c:',c); (* Imprime a:10 b:20 c:20 *)
  m1(a,b,c);
  writeln('Valores despues de llamar a m1() a:',a,'  b:',b,' c:',c); (* Imprime a:10 b:20 c:30 *)
  m2(a,b,c);
  writeln('Valores despues de llamar a m2() a:',a,'  b:',b,' c:',c); (* Imprime a:100 b:200 c:300 *)
  
  
  readln
end.