Pascal/Turbo Pascal - Ayuda con algoritmos en pascal Urgenteee¡¡

{Espero esto sirva }

program fibonacci;

 uses

    crt;

  type

    nume = array[1..10] of word;

  var

    fibo : nume;

    k : integer;

  procedure sumadeayb;

  var

     i, su1, su2 : word;

  begin

      for su1 := 1 to 10 do  {inicio el array fibo a 0}

      fibo[su1] := 0;

      su1 := 1;   {asigno los valores de inicio}

      su2 := 2;

    for i := 1 to 10 do  {recorro el array}

    begin

        fibo[i] := su1 + su2;  {asigno la sumo de los valores de las

                                2 variables a la posicion del array}

        su1 := su2;  {asigno el valor de su2 a su1}

        su2 := fibo[i]; {asigno el valor fibo[i] a su2}

    end;

    writeln;

    writeln('Los Numeros de Fibonacci Son ');

    writeln;

    for i := 1 to 10 do   {presento resultados}

    write(fibo[i],'  ');

    writeln;

    writeln;

    writeln('Pulse Una Tecla');

    readkey;

  end;

  procedure sumadepares;

  var

    d, i : integer;

    suma : word;

  begin

      d := 1;

      for i := 1 to 20 do   {for de 1..20 para tomar los 10 numeros pares}

      if i mod 2 = 0 then   {compruebo si es par i lo asigno al array}

      begin

          fibo[d] := i;

          d := d + 1;  {incremento el contador del array}

      end;

      suma := 0;

      for i := 1 to 10 do     {recorro el array para sumar los valores}

      suma := suma + fibo[i];

      writeln;

      writeln('La Suma de los 10 numeros pares Primeros Es');

      writeln;

      for d := 1 to 10 do  {recorro el array y presento los valores}

      write(fibo[d],' ');

      writeln;

      writeln;

      writeln('Suma Pares = ',suma); {presento la suma}

      writeln;

      writeln;

      writeln('Pulse Una Tecla');

      readkey;

  end;

  function esprimo(n : integer) : integer; {esta funcion comprueva si

                                            el numero es primo si loes

                                            lo toma sino no sera 0}

  var

     divi, res, cont : integer;  {variables locales}

  begin

       cont := 0;  {inicio todas}

       res := 0;

       divi := 2; {no considero al 1 como primo}

       if n < 2 then   {verifico que la entrada no se menor de 2

                        para ebitar el error de division por 0}

       n := 2;

       divi := n div 2;    {divido numero entrado por 2}

      while divi <> 1 do  {se ejecutara mientras sea mayor o menor de 1}

      begin

       res := n mod divi;  {divido numero entrado por divi y tomo el resto}

       if res = 0 then     {compruebo si es 0 si loes incremento cont}

        cont := cont + 1;

        divi := divi - 1; {decremento divi}

      end;

       if cont = 0 then  {cuando termina while compruebo si se incremento

                          cont si es cero es primo sino no loes asigno 0}

        esprimo := n

      else

        esprimo := 0;

  end;

  procedure sumaprimos;

  var

    es, supri : word;

  begin

      clrscr;

      supri := 0;

      es := 0;

      for k := 2 to 30 do  {realizo un for para tomar los 10 numeros

                            primos primeros como veras el 1 no}

      begin

      es := esprimo(k);    {tomo el valor del primo}

      if es > 0 then       {si es mayor de 0 sumo sino no y presento}

      begin

      supri := supri + es;

      write(es,' ');

      end;

     end;

      writeln;

      writeln('La Suma De Los 10 Primeros N§ Primos es : ',supri);

      {presento la suma}

      writeln;

      writeln;

      writeln('Pulse Una Tecla');

      readkey;

  end;

  procedure menu;    {esto solo es el menu para que veas como funciona}

  var

     sali : boolean;

     tec : char;

   begin

       sali := false;

     repeat

       clrscr;

       writeln('**** Menu Principal ****');

       writeln;

       writeln('  1 : Serie Fibonacci');

       writeln('  2 : Suma De Los Primeros 10 N§ Pares');

       writeln('  3 : Suma De Los 10 Primeros N§ Primos');

       writeln('  4 : Salir');

       writeln;

       writeln('<< Pulsa Opcion >>');

       tec := readkey;

       if tec in[#49..#52] then

       begin

    case tec of

  #49 : begin clrscr; sumadeayb; end;

  #50 : begin clrscr; sumadepares; end;

  #51 : begin clrscr; sumaprimos; end;

  #52 : sali := true;

       end;

     end;

     until sali = true;

   end;

  begin

      clrscr;

      menu;

  end.