Pascal/Turbo Pascal - sircuito electrico

{Espero sea esto lo que pides}

 program circuito;

  uses

     crt;

   var

     tension : real;

     resi1, resi2 : integer;

     corriente : real;

     resistencia : real;

     ter1, ter2 : real;

   begin

      clrscr;

      write('  Entre Tension : ');

      readln(tension);

      write('  Entre Resistencia 1 : ');

      readln(resi1);

      write('  Entre Resistencia 2 : ');

      readln(resi2);

      resistencia := resi1 + resi2;

      corriente := tension / resistencia;

      ter1 := corriente * resi1;

      ter2 := corriente * resi2;

      clrscr;

      writeln('   Resistencia Total        = ',resistencia:0:2,' homios');

      writeln('   Tension De Alimentacion  = ',tension:0:2,' Voltios');

      writeln('   Corriente En El Circuito = ',corriente:0:2,' Amperios');

      writeln('   Caida De Tension En R1   = ',ter1:0:2,' Voltios');

      writeln('   Caida De Tension En R2   = ',ter2:0:2,' Voltios');

      writeln;

      writeln('  Pulse Una Tecla');

      readkey;

    end.