1.Faca um programa que leia o nome de dez alunos e respectivamente 1a, 2a, 3a e 4a notas, a seguir calcule a media. Escreva o nome do aluno e sua media.2.Calcule o total de pessoas aprovadas e reprovadas no exercicio acima.Program Pzim ;varnome:array[1..10]of string;nota:array[1..10,1..4]of integer;media,soma:array[1..10]of real;linha,coluna,aprov,reprov:integer;Beginfor linha:=1 to 10 dobeginwriteln(linha,'- Informe o nome do aluno:');readln(nome[linha]);for coluna:=1 to 4 dobeginwriteln(coluna,'- nota: ' );readln(nota[linha,coluna]); soma[linha]:= soma[linha]+nota[linha,coluna] end;media[linha]:=(soma[linha])/4; writeln('A media do aluno(a) ',nome[linha],' foi: ',media[linha]:2:2); writeln;end;clrscr;for linha:=1 to 10 dobeginif (media[linha]>=60) thenaprov:=aprov+1elsereprov:=reprov+1end;writeln('Foram aprovados: ',aprov,' alunos.'); writeln('Foram reprovados: ',reprov,' alunos.');End.3.Faca um programa que leia o nome de tres cidades e a seguir cadastre e exiba na tela a distancia entre essas cidades.Program Distancia;varcidade:array[1..3]of string;distancia:array[1..3,1..3]of real;linha,coluna,cont:integer;Beginfor cont:= 1 to 3 dobeginwriteln(cont,' - Digite o nome da cidades:');readln(cidade[cont]);clrscr;end; for cont:= 1 to 3 dowriteln(cont,' - Voce digitou as cidades:',cidade[cont]); for linha:=1 to 3 dobeginfor coluna:= 1 to 3 dobeginif (linha = coluna) thendistancia[linha,coluna]:=0elsebeginwriteln(' Agora informe a distancia entre ',cidade[linha],' e ',cidade[coluna]);readln(distancia[linha,coluna]); // distancia[linha,coluna]):= distancia[coluna,linha]; end; end; end;for coluna:=1 to 3 dobeginfor cont:= 1 to 3 dobeginwriteln('As distancia entre as cidade ',cidade[coluna],' e ',cidade[linha] ); end;end; End.4.Faca um programa para criar um cadastro de mercadorias que contenha os seguintes dados: codigo da mercadoria, descricao, data de cadastro, ultima saido, saldo em estoque.A seguir escreva todos o codigo da mercadoria e a descricao de todas as mercadorias cadastradas. A seguir todos os dados da mercadoria que apresenta o maior saldo em estoque.Obs.: O programa deve ser feito para cadastro de 1000 produtos diferentes.Program Pzim ;type prod = recordcodMerc: integer;descricao:string;dataCadastro:integer;ultimaSaida:integer;saldoEstoque:integer;end; varcont,m,c:integer;cadastro: array[1..1000] of prod;Beginm:=0;for cont:=1 to 2 dobeginwriteln('Codigo da mercadoria:');readln(cadastro[cont].codMerc);writeln('Descricao:');readln(cadastro[cont].descricao);writeln('Data de Cadastro:');readln(cadastro[cont].dataCadastro);writeln('Ultima saida:');readln(cadastro[cont].ultimaSaida);writeln('Saldo em estoque:');readln(cadastro[cont].saldoEstoque);writeln(' ----- '); end; clrscr;writeln('TODOS OS PRODUTOS');for cont:=1 to 2 dobeginwriteln('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 doif(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 = recordcontaCorrente:integer;agencia:integer;banco:string;nome:string;idade:integer;endereco:string;tel:integer;email:string;saldoBanc:real; end;varcad: array[1..3] of dodos; //1000i:integer; procedure cadastro;beginfor i:=1 to 3 dobeginwriteln(' ::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;varmaior:integer;maiorNome:string;maiorSaldo:real;beginmaior:=1;for i:=1 to 3 dobegin if (cad[i].idade > maior) thenbeginmaior:=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;varmenor:integer;menorNome:string;menorSaldo:real;beginmenor:=150;for i:=1 to 3 dobegin if (cad[i].idade < menor) then begin menor:=cad[i].idade; menorNome:=cad[i].nome; menorSaldo:=cad[i].saldoBanc; end; end; writeln; writeln('>>Pessoa com menor idade:');writeln('Nome: ',menorNome);writeln('Idade: ',menor);writeln('Saldo bancario: ',menorSaldo:2:2); end;Begincadastro;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=recordnome:string;camisa:integer;time:char;salario:real;end; varjog:array[1..5] of dados; //22i:integer;procedure cadastro;beginfor i:=1 to 5 dobeginwriteln('::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;varTA,TB,maisJ: integer;timeM:char;beginmaisJ:=1;for i:=1 to 5 dobegincase jog[i].time of'A': TA:=TA+1;'B': TB:=TB+1;end;end;if (TA>maisJ)thentimeM:= 'A'elsetimeM:= 'B'; writeln('>>O time com mais joadores e o time: ',timeM);