Pascal/Turbo Pascal - Una ayudita más!!

{De momento esto lo otro después}

program numeros;

  uses

     crt;

  const

     maxn = 1000;

  var

    nume, tt, ii : integer;

  procedure primo;

  var

    prim : integer;

    fin : boolean;

  begin

      clrscr;

      writeln('    **** Verificacion De Numeros Primos ****');

      window(1,5,79,24);

      fin := false;

   repeat

      clrscr;

      tt := 0;

      write('  Entre Un Numero 1 Al 1000 [0] Termina : ');

      readln(prim);

      writeln;

      if prim > 0 then

      begin

      for nume := 1 to maxn do

      begin

         if prim mod nume = 0 then

         begin

            tt := tt + 1;

         end;

      end;

      if tt = 2 then

      writeln(' El Numero [ ',prim,' ] Es Primo')

    else

      writeln(' El Numero [ ',prim,' ] No Es Primo');

      writeln;

      writeln(' <<<< Pulse Una Tecla >>>>');

      readkey;

    end

  else

     fin := true;

   until fin = true;

  end;

  begin

     primo;

  end.

{Lo otro  básico}

program calcula;

 uses

    crt;

 const

     pasajeros = 100;

     euros = 100;

 var

   sumas, resto, mujer, hombre, nino : real;

   nmuj, nhom, nnin : real;

  begin

      clrscr;

      mujer := 0;

      hombre := 0;

      nino := 0;

      sumas := euros / 0.5;

      if sumas > 100 then

      resto := (sumas - 100) * 0.5;

      nino := (sumas - 100);

      nhom := resto / 5;

      hombre := nhom;

      nino := nino - nhom;

      resto := 100 - ((nino * 0.5) + (nhom * 5));

      if resto > 0 then

       if (resto + 5) = 10 then

       begin

          mujer := mujer + 1;

          hombre := hombre - 1;

          resto := 100 - ((mujer * 10) + (nino * 0.5) + (hombre * 5));

       end;

      writeln('  Inicio Euros = ',100);

      writeln('  Ni¤os  0.5 E = ',nino:0:0,'  Pasajeros Ni¤os');

      writeln('  Mujeres 10 E = ',mujer:0:0,'   Pasajeros Mujeres');

      writeln('  Hombres  5 E = ',hombre:0:0,'   Pasajeros Hombres');

      writeln('  Qeda Euros = ',resto:0:0);

      readln;

  end.