Bueno, he modificado mi programa y quedo así:
Código Delphi
[-]program Tarea6;
{$APPTYPE CONSOLE}
uses
SysUtils,crt,math;
var
Co,X,CMES,CSEM,y,e,f:real;
b,N,d:integer;
begin
Writeln('Indique la inversion inicial');
Readln(Co);
Writeln('Indique el interes anual abonado a su cuenta (en porcentaje, sin el signo %)');
Readln(X);
Writeln('Indique la cantidad mensual a depositar');
Readln(CMES);
Writeln('Indique la cantidad semestral a retirar');
Readln(CSEM);
Writeln('Indique la cantidad de meses a ser calculados');
Readln(N);
y:=(X/100)*Co;
b:=N*30;
e:=y/360;
f:=Co;
f:=f+(b*e);
f:=f+(N*CMES);
if N>=6 then
begin
d:=N div 6;
f:=f-(d*CSEM);
end;
Writeln('Su cantidad de dinero al cabo de los ',N, ' meses fue: ',f:0:2);
if f>=(2*Co) then
Writeln('Se duplico su inversion inicial')
else
Writeln('No se duplico su inversion inicial');
Readln;
end.
La misma pregunta... Como saber y mostrar el N cuando se duplica la cantidad inicial? y si no se duplica, como saber cuando se duplicará?