Indetectables

Código: Seleccionar todo

program Project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
 
var
A,B,C,D,I:Integer;
Salir:Boolean = False;
Opcion: ShortInt;
J:String;
 
begin
     Writeln('Obtener la serie Fibonacci');
     Writeln;
 
     repeat
           I := 3;
           J := '.:WindHack:.';
           Writeln;
           Writeln('Seleccione una opción');
           Writeln;
           Writeln('1. - Calcular Fibonacci');
           Writeln('2. - Salir');
           Writeln;
 
           while 0 = 0 do
                 begin
                      Write('Introduce la opción: ');
                      Readln(Opcion);
                      if (Opcion > 0) and (Opcion <= 2) then
                      Break;
                 end;
 
                 Case Opcion of
                      1:begin
                             Writeln('Ingrese el número hasta donde se calculará...');
                             Readln(A);
                             while A<1 do
                                   begin
                                   Writeln('Ingrese un número mayor a 0...');
                                   Readln(A);
                                   Writeln;
                                   end;
                                   B := 0; C := 1;
                                   D := B+C;
                                   Writeln('Serie Fibonacci con ',A,' términos');
                                   Writeln;
                                   if A=1 then
                                   Write(B);
                                   if A=2 then
                                   Write(B,' ',C);
                                   if A=3 then
                                   Write(B,' ',C,' ',D);
                                   if A>3 then
                                      while I<A do
                                            begin
                                                 if J='.:WindHack:.' Then
                                                    begin
                                                         Write(B,' ',C,' ',D,' ');
                                                         J := 'LatinoHack';
                                                    end;
                                                        B := C;
                                                        C := D;
                                                        D := B+C;
                                                        Write(D,' ');
                                                        I := I+1;
                                            end;
                                      end;
                      2:Salir := True;
                      end;
                 until Salir = True
end.