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.