readln(cadastro[cont].ultimaSaida); writeln('Saldo em estoque:'); readln(cadastro[cont].saldoEstoque); writeln(' ----- '); end; clrscr; writeln('TODOS OS PRODUTOS'); for cont:=1 to 2 do begin writeln('Codigo da mercadoria: ',cadastro[cont].codMerc); writeln('Descricao: ',cadastro[cont].descricao); writeln('Data de Cadastro: ',cadastro[cont].dataCadastro); writeln('Ultima saida: ',cadastro[cont].ultimaSaida); writeln('Saldo em estoque: ',cadastro[cont].saldoEstoque); writeln(' ----- ');end;readln;for cont:=1 to 2 do if(m5.Faca um programa para criar um cadastro de dados bancarios e a seguir escreva o nome a idade e o saldo do cliente mais novo e mais velho.Obs.: O programa deve ser feito para cadastrar 10000 clientes. Os dados dos clientes a serem cadastrados sao: Conta corrente, agencia, banco, nome, endereco, telefone, e-mail, idade e saldo bancario.Program Pzim ; type dodos = record contaCorrente:integer; agencia:integer; banco:string; nome:string; idade:integer; endereco:string; tel:integer; email:string; saldoBanc:real; end; var cad: array[1..3] of dodos; //1000 i:integer; procedure cadastro;begin for i:=1 to 3 do begin writeln(' ::CADASTRO DE CLIENTE::'); writeln; write('Conta Corrente: '); readln(cad[i].contaCorrente); write('Agencia: '); read(cad[i].agencia); write('Banco: '); read(cad[i].banco); write('Nome: '); read(cad[i].nome); write('Idade: '); read(cad[i].idade); write('Endereco: '); read(cad[i].endereco); write('Telefone: '); read(cad[i].tel); write('E-mail: '); read(cad[i].email); write('Saldo bancario: '); read(cad[i].saldoBanc); clrscr; end;end; procedure clienteMaisVelho; var maior:integer; maiorNome:string; maiorSaldo:real;begin maior:=1; for i:=1 to 3 do begin if (cad[i].idade > maior) then begin maior:=cad[i].idade; maiorNome:=cad[i].nome; maiorSaldo:=cad[i].saldoBanc; end; end; writeln('>>Pessoa com maior idade:'); writeln('Nome: ',maiorNome); writeln('Idade: ',maior); writeln('Saldo bancario: ',maiorSaldo:2:2); end; procedure clienteMaisNovo; var menor:integer; menorNome:string; menorSaldo:real;begin menor:=150; for i:=1 to 3 do begin if (cad[i].idade <>>Pessoa com menor idade:'); writeln('Nome: ',menorNome); writeln('Idade: ',menor); writeln('Saldo bancario: ',menorSaldo:2:2); end;Begin cadastro; clienteMaisVelho; clienteMaisNovo;End.6.Faca um programa que leia nome do jogador, camisa, time e saldo de 22 jogadores. Escreva o time que contem mais jogadores na lista, o nome do jogador com salario mais alto e mais baixoProgram Pzim ; type dados=record nome:string; camisa:integer; time:char; salario:real;end;var jog:array[1..5] of dados; //22 i:integer;procedure cadastro;begin for i:=1 to 5 do begin writeln('::CADASTRO DE JOGADORES::'); writeln; writeln('TIMES DESPONIVEIS: A e B'); writeln(i,' - Faca o cadastro:'); writeln('_________________________'); writeln; write('Nome: '); read(jog[i].nome); write('Camisa: '); read(jog[i].camisa); write('Time: '); read(jog[i].time); write('Salario: '); read(jog[i].salario); clrscr; end;end; procedure maisJogadores; var TA,TB,maisJ: integer; timeM:char;begin maisJ:=1; for i:=1 to 5 do begin case jog[i].time of 'A': TA:=TA+1; 'B': TB:=TB+1; end; end; if (TA>maisJ)then timeM:= 'A' else timeM:= 'B'; writeln('>>O time com mais joadores e o time: ',timeM);end; procedure maiorSalario; var maior:real; maiorNome:string;begin maior:=1; for i:=1 to 5 do begin if (jog[i].salario > maior) then begin maior:=jog[i].salario; maiorNome:=jog[i].nome; end; end; writeln; writeln('>>O jogador com maior salario:'); writeln('Nome: ',maiorNome); writeln('Salario: ',maior:2:2); end; procedure menorSalario; var menor:real; menorNome:string;begin menor:=999999999; for i:=1 to 5 do begin if (jog[i].salario <>>O jogador com menor salario:'); writeln('Nome: ',menorNome); writeln('Salario: ',menor:2:2);end; Begin cadastro; maisJogadores; maiorSalario; menorSalario;End.7.Faca um programa que leia nome, turma, matricula, sexo, e as tres notas de um aluno e a seguir escreva a media de cada aluno, a maior e a menor nota daturma. Program Pzim ; type dados=record nome:string; turma:string; matricula:integer; sexo:char; nota: array[1..3] of real; end;var aluno:array[1..4] of dados; i,j:integer; media:array[1..4] of real;procedure informaDados;begin for i:=1 to 4 do begin writeln('::DADOS DOS ALUNOS::'); WRITELN; write('Nome:'); read(aluno[i].nome); write('Turma:'); read(aluno[i].turma); write('Matricula:'); read(aluno[i].matricula); write('Sexo:'); read(aluno[i].sexo); for j:=1 to 3 do begin write('Nota ',j,'= '); read(aluno[i].nota[j]); end; clrscr; end;end;procedure funcaoMadia; var soma:real; begin for i:=1 to 4 do begin soma:=0; for