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.