(*Este programa tiene varios errores, pretendemos depurarlo, utilizando
el compilador para descubrirlos y posteriormente corregirlos, aunque se utiliza
el compilador del CD la depuración sería semejante si se utilizara la nueva
versión*)
(*El programa debe calcular la media de dos números que el usuario introduce
desde el teclado, el proceso se repite varias veces, tantas como indique la variable
num_veces*)

program media;

var
		res:real;		 (*Almacenará el resultado de la media*)
		valor_a:real;	 (*Almacenará el valor del primer número*)
		valor_b:real;	 (*Almacenará el valor del segundo número*)
		control:integer; (*Se usará para controlar el final del bucle*)
		
const
		num_veces=5;		 (*Guarda el número de veces que se va a repetir
							 el cálculo de la media*)
begin	
		control:=1;			  
		while(control<=num_veces) do
		begin
				writeln('Introduzca el primer numero por favor: '); 
				readln(valor_a); 
				writeln('Introduzca el segundo numero por favor: ');
				readln(valor_b);
				res:=(valor_a+valor_b)/2;
				writeln('El resultado de su operacion es ',res:4:2); 
				control:=control-1;
		end;
end.