Respuesta No 1.

 Program Salario;

Uses wincrt;

Var

   id_empleado,i,n : integer;

   nom_empleado : string [40];

   sal_bruto,salario_neto,tod_ded: real;

   resp : char;

Procedure calcula (var sal_brut : real);

Var

  cc_ss,b_p : real;

Begin

   cc_ss := sal_brut * 0.08;

   b_p := sal_brut * 0.01;

   tod_ded := cc_ss + b_p;

   salario_neto := sal_brut - tod_ded

End;

Begin

       i:=1;

       Write ('Digite el número de empleados a procesar: ');

       readln (n);

       While i <= n do

        begin

         clrscr;

         write ('Id. del empleado ',i,' de ',n,' : ');

         readln (id_empleado);

         write ('Nombre: ');

         readln (nom_empleado);

         write ('Salario bruto: ');

         readln (sal_bruto);

         writeln;

         calcula(sal_bruto);

         writeln;

         writeln ('El salario neto de ',nom_empleado,' es ',salario_neto:10:2);

         writeln ('Sus deducciones fueron ',tod_ded:10:2);

         writeln;

         writeln ('Presione enter para continuar...');

         readln;

         i := i+1;

       end;

End.
Respuesta No. 3.

Program sumas;

Uses wincrt;

Var i,n:integer;

Function Sumar (N : integer) : integer;

     Var suma : integer;

Begin

     Suma := 0;

     For i:= 1 to N do

       suma := suma + i;

       Sumar := Suma;

     Write ('La suma de los números del 1',' al ',n, ' es: ',suma);

     Readln;

End;

Begin

     Write ('Digite el número máximo: ');

     Readln (N);

     Sumar (N);

End.

Respuesta No. 6.

Program TestPrimos;

Uses Wincrt;

Var

            N : integer;

Function Primo (Q : integer) : boolean;

Var

            D : integer;

            P : boolean;

Begin

            If Q < 4 then

                        Primo := True

            Else

                        Begin

                             P:= True;

                             D := 2;

              While P and (D<=Q div 2) do

                        Begin

                            P := Q mod D <> 0;

                            D := D + 1

                        End;

            Primo := P

            End

End;

Begin

            Writeln ('Introduzca un entero positivo o cero para terminar: ');

            Readln (N);

            While N > 0 do

               Begin

                        If Primo (N) then

                                   Writeln (N,' es primo')

                        Else   

                                   Writeln (N,' no es primo');

                                   Writeln ('Introduzca otro entero');

                                   Readln (N);

               End;

            Writeln

End.

"AÚN EN LA ADVERSIDAD, PUEDES MANEJAR TUS PROPIAS CONDICIONES CON GARRA Y FORTALEZA. HAZLO CON LA CONVICCIÓN FIRME DEL LEÓN Y CON LA ELEGANCIA DEL ÁGUILA EN LAS ALTURAS.