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.