PROGRAM CONTROL_MENSUAL_GALLINERO_S_A;
USES CRT;
VAR
NG,Y,I,H,OPTION:INTEGER;
N:CHAR;
REP:REAL;
G:ARRAY[1..15] OF INTEGER;
GE:ARRAY[1..15] OF INTEGER;
NAMES:ARRAY[1..15] OF STRING[15];
CONFIRM:BOOLEAN;
PROCEDURE INGRESO1;
BEGIN
WRITELN('INGRESE EL NUMERO DE LA GALLINA');
READ(NG);
END;
PROCEDURE INGRESO2;
BEGIN
WRITELN('INGRESE EL NOMBRE DE LA GALLINA');
READ(Y);
END;
BEGIN
CLRSCR;
WRITE('GALLINERO S. A.');
WRITELN('CONTROL MENSUAL DE PRODUCCION');
WRITELN('MENU');
WRITELN('1.INCLUSION DE GALLINAS');
WRITELN('2.REPORTES');
WRITELN('3.TABLA MENSUAL');
WRITELN('4.MODIFICACION DE HISTORICO');
READ(OPTION);
CLRSCR;
BEGIN
IF OPTION = 1 THEN
BEGIN
WRITELN('1.INGRESE NUMERO DE GALLINA');
WRITELN('2.ESCRIBA EL NOMBRE DE LA GALLINA');
WRITELN('3.ESCRIBA LA CANTIDAD DE YEMAS QUE ESTA GALLINA PRODUCE');
readln(r);{esta variable le guarda el numero que el cliente escojio, asi no le arrastra los tres valores del menu}
END; {manfred, haga cada menu en un procedure diferente}
{ahora si, ya tiene un dato con que trabajar que es "r"}
if r=1 then
begin{procedimiento para asignar un numero a la gallina}
clrscr;
procedure;{este es el proceso que diseñaste para asigar un numero a cada gallina, ya lo asignaste arriba, aqui solo lo llamas}
end;{procedimiento para asignar un numero a la gallina%