Pascal/Turbo Pascal - calculo de la tasa de interes

program EJER25;

USES CRT;

VAR I,P,CM,VF,NI:REAL;

var n:integer;

var X:CHAR;

begin

clrscr;

WRITELN('BIENVENIDO');

WRITELN(' ');

WRITELN('Para hallar la cuota mensual, preciona A');

WRITELN(' ');

WRITELN('Para hallar el precio del artículo,  preciona B');

WRITELN(' ');

WRITELN('Para hallar el valor futuro del artículo,  preciona B');

WRITELN(' ');

case X OF

'A': BEGIN

      WRITELN('INGRESE EL VALOR DEL INTERES MENSUAL'); READLN(I);

      WRITELN('INGRESE EL VALOR DEL PRECIO'); READLN(P);

      WRITELN('INGRESE EL VALOR DEL NUMERO DE MESES'); READLN(N);

      NI:=(1+I)^N;

      CM:=(P*i*NI)/(NI-1);

      WRITELN('LA CUOTA MENSUAL ES=',CM:9:2);

      READLN;

      END;

'B': BEGIN

      WRITELN('INGRESE EL VALOR DE LA CUOTA MENSUAL'); READLN(CM);

      WRITELN('INGRESE EL VALOR DEL INTERES MENSUAL'); READLN(I);

      WRITELN('INGRESE EL VALOR DEL NUMERO DE MESES'); READLN(N);

      NI:=(1+I)^N;

      P:=CM*(NI-1)/(I*NI);

      WRITELN('El precio del artículo ES=',P:9:2);

      READLN;

      END;

'C': BEGIN

      WRITELN('INGRESE EL VALOR DEL INTERES MENSUAL'); READLN(I);

      WRITELN('INGRESE EL VALOR DEL PRECIO'); READLN(P);

      WRITELN('INGRESE EL VALOR DEL NUMERO DE MESES'); READLN(N);

      NI:=(1+I)^N;

      VF:=p*NI;

      WRITELN('El valor futuro del artículo ES=',VF:9:2);

      READLN;

      END;

else begin writeln('opcion no valida'); readln; end;

READLN;

end.

program EJER25;

USES CRT,MATH; 	{debes agregar la libreria MATH para poder usar la potencia}

				{el simbolo de potencia es **}

VAR

	I,P,CM,VF,NI:REAL;

	n:integer;

	X:CHAR;

begin

	clrscr;

	WRITELN('BIENVENIDO');

	WRITELN(' ');

	WRITELN('Para hallar la cuota mensual, preciona A');

	WRITELN(' ');

	WRITELN('Para hallar el precio del artículo,  preciona B');

	WRITELN(' ');

	WRITELN('Para hallar el valor futuro del artículo,  preciona C');

	WRITELN(' ');

	READLN(X); {Te olvidaste del readln para leer la opcion}

	case X OF

		'A':

			BEGIN

				WRITELN('INGRESE EL VALOR DEL INTERES MENSUAL'); READLN(I);

				WRITELN('INGRESE EL VALOR DEL PRECIO'); READLN(P);

				WRITELN('INGRESE EL VALOR DEL NUMERO DE MESES'); READLN(N);

				NI:=(1+I)**N; {** significa elevado a}

				CM:=(P*i*NI)/(NI-1);

				WRITELN('LA CUOTA MENSUAL ES=',CM:9:2);

				READLN;

			END;

		'B':

			BEGIN

				WRITELN('INGRESE EL VALOR DE LA CUOTA MENSUAL'); READLN(CM);

				WRITELN('INGRESE EL VALOR DEL INTERES MENSUAL'); READLN(I);

				WRITELN('INGRESE EL VALOR DEL NUMERO DE MESES'); READLN(N);

				NI:=(1+I)**N;

				P:=CM*(NI-1)/(I*NI);

				WRITELN('El precio del artículo ES=',P:9:2);

				READLN;

			END;

		'C':

			BEGIN

				WRITELN('INGRESE EL VALOR DEL INTERES MENSUAL'); READLN(I);

				WRITELN('INGRESE EL VALOR DEL PRECIO'); READLN(P);

				WRITELN('INGRESE EL VALOR DEL NUMERO DE MESES'); READLN(N);

				NI:=(1+I)**N;

				VF:=p*NI;

				WRITELN('El valor futuro del artículo ES=',VF:9:2);

				READLN;

			END;

		else begin

			writeln('opcion no valida'); readln;

		end;

		READLN;

	end;

 end.