(*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;(*Se cambia el nombre del programa*)

var
		media:integer;		 (*Almacenará el resultado de la media*)
		valor a:integer;	 (*Almacenará el valor del primer número*)
		valor_b:iteger;		 (*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*)
		
constant
		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);
				media:=(valor_a+valor_b)/2;
				writeln('El resultado de su operacion es ,media:4:2);
				control:=control-1;
		end;
end