Ayuda con Aplicación de Consola

[DarthDante]

Buenas! Soy nuevo en esto de programar y tengo una asignación que no puedo completar :( Vengo a pedir ayuda por acá, a ver si es posible :)

La cosa es que he hecho este programilla:

program Tarea6;

{$APPTYPE CONSOLE}

uses
SysUtils,crt,math;
var
Co,X,CMES,CSEM,y,e,f,g:real;
a,b,c,d,N: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;
d:=0;
f:=Co;
begin
for a := 0 to b - 1 do
f:=f+e;
end;
begin
for c:=0 to N - 1 do
f:=f+CMES;
end;
begin
if N>=6 then
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
begin
Writeln('Se duplico su inversion inicial')
end
else
Writeln('No se duplico su inversion inicial');
Readln;
end.

(Se que quiza se pueda lograr más corto, pero asi me ha salido eh) Mi pregunta es: ¿como puedo saber en que N (en que mes) se duplico la cantidad Co inicial? y de no duplicarse, ¿como saber en que mes se duplicara? Gracias de antemano :)

[Casimiro Notevi]

Bienvenido a clubdelphi, DarthDante, ¿ya leiste nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php)?, gracias por tu colaboración :)

Y recuerda poner los tags al código fuente, ejemplo:

http://neftali.clubdelphi.com/images/UtilizarTAGs.png

Gracias :)

[Casimiro Notevi]

Por cierto, ¿esos begin end sin condicionantes son correctos?

[DarthDante]

Bueno, he modificado mi programa y quedo así:

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á?