(*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:integer;		 (*Almacenará el resultado de la media*)
		valor_a:integer;	 (*Almacenará el valor del primer número*)
		valor_b:integer;	 (*Almacenará el valor del segundo número*)
		control:integer;	 (*Se usará para controlar el final del bucle*)
		otra:integer;		 (*Variable que no se va a utilizar*)
		
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
				writenl('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