Ayuda con Aplicación de Consola
 

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:

Código Delphi [-]
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 :)

Bienvenido a clubdelphi, DarthDante, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)

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



Gracias :)

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

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