uses
	crt;{Cargamos la libreria del teclado}
var
	tecla						: Char;{Leyendo teclas}
	valor1,valor2				: Longint;{Valores para calcular}
	operando,x					: integer;{el operando y la abscisa}
	aux							: String;{Auxiliar para ir concatenando digitos}
	operacion, error,mostrado	: boolean;{Banderas}
 
function agregar(tecla:char;valor:longint):longint;
	{Va concatenando la tecla en la variable valor y devuelve valor}
	var
		aux	: String;{Variable auxiliar para ir concatenando}
	begin
		str(valor,aux);{Asignamos a aux el contenido de valor}
		{0,1,2,3,4,5,6,7,8,9}
		if (ord(tecla)>47)AND(ord(tecla)<58) then
		{Verificamos si un digito fue introducido en tecla mediante su 
		valor ordinal en la tabla de codigo ascii}
			begin
				if NOT(length(aux)>8) then
				{Si la longitud no es mayor a 8 seguimos permitiendo agregar digitos}
					begin
						val(concat(aux,tecla),valor);{concatenamos la tecla en aux, se lo asignamos a valor el
						contenido de la concatenacion convirtiendolo a valor numerico}
					end;
			end;
		{BackSpace}
		if (ord(tecla)=8)AND(length(aux)>0) then{si quiere eliminar un caracter y la cadena es mayor a cero}
			begin
				if valor<10 then {Si solo hay un digito, entonces cuando de borrar lo convertimos a cero}
					valor:=0;
				delete(aux,length(aux),1);{Eliminamos de la ultima posicion un digito}
				val(aux,valor);{Asignamos a valor el contenido de aux convertido en valor numerico}
			end;
		agregar:=valor;{Devolvemos el valor en la funcion}
	end;
 
procedure calculadora(t:Char);{Dibuja una simulacion de calculadora en pantalla}
	procedure coloreado(texto:string;x,y:integer);
	{Procedimiento local de calculadora que colorea el texto en
	una coordenada dada por x y y}
		begin
			textcolor(green);
			gotoxy(x,y);
			write(texto);
			textcolor(white);
		end;
	begin{Inicia el procedimiento}
		{dibuja calculadora}
		gotoxy(3,2);writeln('-----  <');
		gotoxy(3,3);writeln('7 8 9  +');
		gotoxy(3,4);writeln('4 5 6  -');
		gotoxy(3,5);writeln('1 2 3  *');
		gotoxy(3,6);writeln('0      /');
 
		{Si es cualquier digito numerico colorea su digito}
		if ord(tecla)=57{9} then coloreado('9',7,3);
		if ord(tecla)=56{8} then coloreado('8',5,3);
		if ord(tecla)=55{7} then coloreado('7',3,3);
		if ord(tecla)=54{6} then coloreado('6',7,4);
		if ord(tecla)=53{5} then coloreado('5',5,4);
		if ord(tecla)=52{4} then coloreado('4',3,4);
		if ord(tecla)=51{3} then coloreado('3',7,5);
		if ord(tecla)=50{2} then coloreado('2',5,5);
		if ord(tecla)=49{1} then coloreado('1',3,5);
		if ord(tecla)=48{0} then coloreado('0',3,6);
 
		{Si es un digto BackSpace o operando lo colorea}
		if ord(tecla)=8{BackSpace} then coloreado('<',10,2);
		if ord(tecla)=43{+} then coloreado('+',10,3);
		if ord(tecla)=45{-} then coloreado('-',10,4);
		if ord(tecla)=42{*} then coloreado('*',10,5);
		if ord(tecla)=47{/} then coloreado('/',10,6);
	end;{Fin del procedimiento dibuja calculadora}
 
begin{Programa principal}
	clrscr;{Limpia pantalla}
	valor1		:=0;{inicializa los valores principales}
	valor2		:=0;{}
	aux			:='';{}
	operacion	:=false;{No hay operacion pendiente}
	error		:=false;{No hay errores en las operaciones}
	mostrado	:=false;{No se ha mostrado el resultado}
	calculadora(' ');{Dibuja la calculadora sin remarcar ningun digito}
	repeat{Repite la calculadora hasta que no se presione salir (Tecla ESC)}
		str(valor1,aux);{Asigna a aux el valor de valor1 si existe}
		x:=11-length(aux);{Especificamos la abscisa para que el texto se recorra de derecha a isquierda segun la cantidad de digitos}
		tecla:=readkey;{Se le asigna a tecla el valor insertado desde el teclado}
		calculadora(tecla);{Dibujamos la calculadora dibujando el caracter presionado}
		if (ord(tecla)=13)OR(((ord(tecla)=42)OR(ord(tecla)=43)OR(ord(tecla)=45)OR(ord(tecla)=47))AND(operacion=true)) then
			{Si tecla es ENTER o un operando y hay una operacion pendiente (Ya se ha insertado valor1)}
			begin
				case ord(operando) of{Evalua que operando ha sido insertado para realizar operacion}
						42{*}:{Multiplic}
							begin
								if ord(tecla)<>42 then{Evalua que no se inserte dos veces el operando * seguido
								ya que automaticamente valor2 tomaria el valor cero trallendo resultado indeseado (0)}
									valor1:=valor1*valor2;
							end;
						43{+}:{Suma}
								valor1:=valor1+valor2;
						45{-}:{Resta}
								valor1:=valor1-valor2;
						47{/}:{Division}
							begin
								if ord(tecla)<>47 then{Evalua que no se inserte dos veces el operando / seguido
								ya que automaticamente valor2 tomaria el valor2 cero mostrando así un error}
									if valor2<>0 then{Si el dividendo (valor2) no es cero}
											valor1:=valor1 div valor2{Divide}
										else
											error:=true;{No divie activa la bandera de error}
							end;
					end;
				operacion	:= false;{Apaga la bandera de operacion pendiente}
				operando	:= 0;{Devuelve operando a cero para que no esté activado si ya se utilizo}
				valor2      := 0;{Devuelve valor2 a cero}
				gotoxy(1,1);write('                ');{Limpia la parte donde escribira el resultado}
				if error=false then{Si la bandera error esta apagada}
						begin
							gotoxy(x,1);
							write(valor1);{Muestra el resultado}
						end;
				if error=true then{Si la banera error esta encenida}
					begin
						valor1:=0;{Devuelve valor1 a cero}
						gotoxy(1,1);write('ERROR');{Muestra msg de error en pantalla}
						error:=false;{vuelve a apagar la bandera de error}
					end;
				mostrado:=true;{Enciente la bandera de que ha sido mostrado el resultado}
			end;{Fin de .... {Si tecla es ENTER o un operando y hay una operacion pendiente (Ya se ha insertado valor1)}}
 
		if mostrado=false then {Si la bandera mostrado esta apagada (no se ha mostrado un resultado)}
			begin
				case operacion of{Evaluamos si hay una operacion pendiente o si todavia se esta lellendo el valor1}
						false:{Todavia se esta lellendo valor1}
							begin
								str(valor1,aux);{Asignamos a aux lo de valor1}
								valor1:=agregar(tecla,valor1);{Mandamos llamar la funcion agregar
								con el valor1 de la tecla y lo que tiene valor (...concatenar valores)}
 
								gotoxy(1,1);write('           ');{Limpia parte donde muestra resultado}
								gotoxy(x,1);write(valor1);{Muestra resultado de concatenar}
							end;
 
						true:{Ya se esta lellendo valor2 (Hay una operacion pendiente por realizar ya)}
							begin
								str(valor2,aux);
								valor2:=agregar(tecla,valor2);{Mandamos llamar la funcion agregar
								con el valor2 de la tecla y lo que tiene valor (...concatenar valores)}
 
								gotoxy(1,1);write('           ');{Limpia parte donde muestra resultado}
								gotoxy(x,1);write(valor2);{Muestra el resultado de concatenar}
							end;{Fin de evaluar si hay o no operacion pendiente}
					end;{Fin del case}
 
				if (ord(tecla)=42{*}) OR (ord(tecla)=43{+}) OR (ord(tecla)=45{-}) OR (ord(tecla)=47{/}) then
				{Si tecla es uno de los operandos *,/,-,+}
					begin
						operacion:=true;{Enciende la bandera de operacion pendiente}
						operando := ord(tecla);{Asigna a operando el valor ordinal de la tecla (el operando insertado)}
						gotoxy(11,1);write(tecla);{Se va a la coordenada donde termina la parte para mostrar resulstado y muestra
						el operando}
					end;
			end;{Fin de si la banedera mostrado esta apagada}
	mostrado:=false;{Apagamos la bandera de que ha sido mostrado el resultado}
	until ord(tecla)=27;{Hasta que el valor ordinal de la tecla sea 27 (Tecla ESC)}
end.