program fran_jss ;
uses wincrt;
var  nombre, sexo, para: string;
 edad,cedula,contador: integer;

 begin
 repeat

writeln ('ingrese su nombre');
readln (nombre);
writeln ('ingrese su cedula');
readln (cedula);
writeln (' ingrese su sexo f/m');
readln(sexo);
writeln('ingrse edad');
readln (edad);
contador := contador+1;
writeln('desea ingresar otro registro');
writeln(' pulse n para detener');
readln (para);
until para= 'n';
end.

program  franjs;

uses wincrt;
 var
 nota ,acu, cont: integer;
 seguir: char;
 prom: real;





 begin

 clrscr;

 writeln (' ingrese nota');
 readln ( nota);
 acu:= acu+nota;
 cont := cont+1;
 writeln ('desear ingresar otra nota si no hay mas n');
 readln (seguir);
 until seguir = 'n';
 writeln (' la sumatoria es',acu);
 writeln (' la cantida es de notas  es ', cont);
 prom := acu/cont;
 writeln (' el promedio es',prom  :5:2);
 end.

program fran ;
uses wincrt;
var  nombre, cedula, sexo : string;
f,m : char;
edad,n,i : integer;
 begin

 writeln(' cuantas oersonas vas registara ');
 readln(n);

 for i:= 1 to n do

 begin

writeln ('ingrse su nombre');
readln (nombre);
writeln ('ingrese su cedula');
readln (cedula);
writeln (' ingrese su sexo f/m');
readln(sexo);
writeln('ingrse edad');
readln (edad);

end;
end.

program Fran_js;
uses wincrt;
var
A,B,suma:integer;
begin
writeln('ingrese A');
readln(a);
writeln('ingrese B');
readln(B);
suma:= A+B;
writeln('el resultado es',suma);
end.

Program suma_numeros;
Uses Wincrt;

Var
horas_d , horas_n , total_dinero : REAL ;

Begin

     writeln('ingrese el numero de horas dirias que trabajo : ');
     readln(horas_d);

     writeln(' ');

     writeln('ingrese el numero de horas nocturnas que trabajo : ');
     readln(horas_n);

     total_dinero :=  (horas_d * 10.11) + (horas_n * 13.45);

     writeln('el total de dinero gana es : ', total_dinero :3:2);






End.

Program asd_C_F_K;
Uses Wincrt;
Var

   centigrados,kelvin,fahrenheit:REAL;



Begin

    writeln('Ingrese los grados centigrados');
    readln(centigrados);

    kelvin:=centigrados + 273;
    fahrenheit:=(centigrados*1.8)+32;

    writeln('el valor en grados Kelvin es : ',kelvin    :2:3);
    writeln(' ');
    writeln('el valor en grados fahrenheit es :',fahrenheit   :2:3);


End.

program calculo_imc;
uses wincrt;
var
imc,peso,altura: real;
begin
writeln('indique peso');
readln(peso);
writeln('ingrese altura');
readln(altura);
imc:=peso/(altura*altura);
writeln('su imc es:',imc:5:2);
end.