Informática

Type RProduto = Record Codigo: Integer; Nome_produto: String; Quant_estoq: Integer; Quant_min_estoq: Integer; Valor_produto: Real;
End;
RVenda = Record Cod_venda: String[30]; Cod_prod_vendido: String[30]; Quant_venda: Integer; Data_venda: String[10]; Valor_venda: Real;
End;
Var opcao: integer; produto: array [1..2] of RProduto; venda: array [1..2] of RVenda; i: integer; cont_venda: integer;
Procedure Menu;
Begin
Clrscr; Writeln ('**********MENU**********'); Writeln ('1 - Cadastrar Produto'); Writeln ('2 - Cadastrar Venda'); Writeln ('3 - Atualizar Estoque'); Writeln ('4 - N£mero de vendas de um determinado dia'); Writeln ('5 - O faturamento das vendas de um determinado dia'); Writeln ('6 - Consultar todos os produtos que precisam atualizar o seu estoque'); Writeln ('7 - Sair do Programa'); Writeln; Writeln ('Selecione uma opção:'); Readln (opcao);
End;
Procedure CadastroP; Begin
For i:=1 to 2 do Begin
Write ('Digite o nome do produto a ser cadastrado:');
Readln (produto[i].nome_produto);
Write ('Digite a quantidade do produto em estoque:');
Readln (produto[i].quant_estoq);
Write ('Digite a quantidade m¡nima de estoque:');
Readln (produto[i].quant_min_estoq);
Write ('Digite o valor do produto:');
Readln (produto[i].valor_produto); End; End;
Procedure CadastroV; Begin
For i:=1 to 2 do Begin cont_venda := 0;
Write ('Digite o c¢digo da venda:');
Readln (venda[i].cod_venda);
Write ('Digite o código do produto vendido:');
Readln (venda[i].cod_prod_vendido);
Write ('Digite a quantidade vendida:');
Readln (venda[i].quant_venda);
Write ('Digite a data em que a venda foi efetuada (DD/MM/AAAA):');
Readln (venda[i].data_venda);
Write ('Digite o valor da venda efetuada:');
Readln (venda[i].valor_venda); End; End;
Procedure Atualizar_estoq;
Var estoq_atual: integer; quant_venda: integer; quant_estoq: integer; Begin
Write ('Digite a quantidade em