Faca um programa para apontar os resultados de uma pesquisa eleitoral para presidente da republica de Kneippopolis, o mais novo pais da America do Sul. Os candidatos sao: Zico, Ricardo Kneipp, Obina e Geninho. Escreva o total e o percentual de votos de cada candidato. A seguir escreva o nome do novo presidente do pais com maior IDH do planeta.Program Pzim ; KNEIPOPOLISvarvoto:char;cont,somaZ,somaR,somaO,somaG,somaN,maior:integer;percZ,percR,percO,percG:real;nomepres:string;Beginmaior:=0;writeln('Pesquisa eleitoral para presidente da republica de Kneippopolis');writeln;writeln('Os candidatos sao: Zico, Ricardo Kneipp, Obina e Geninho');writeln;for cont:=1 to 10 dobeginwriteln('De seu voto:Zico - Z, Ricardo Kneipp - R, Obina - O, Geninho - G');read(voto);clrscr;case voto of'Z' : somaZ:= somaZ+1;'R' : somaR:= somaR+1;'O' : somaO:= somaO+1;'G' : somaG:= somaG+1;'z' : somaZ:= somaZ+1;'r' : somaR:= somaR+1;'o' : somaO:= somaO+1;'g' : somaG:= somaG+1;elsewriteln('Seu voto foi invalido');end;if (somaZ>maior) thenbeginmaior:=somaZ;nomepres:='Zico';end;if (somaR>maior) thenbeginmaior:=somaR;nomepres:='Ricardo Keneipp';end;if (somaO>maior) thenBeginmaior:=somaO;nomepres:='Obina';end;if (somaG>maior) thenbeginmaior:=somaG;nomepres:='Geninho';end;end;percZ:=(somaZ/10)*100;percR:=(somaR/10)*100;percO:=(somaO/10)*100;percG:=(somaG/10)*100;clrscr;writeln('O percentual de fotos recebidos pelo candidato Zico foi:',percZ:2:2,'% e o total de votos foi:',somaZ);writeln;writeln('O percentual de fotos recebidos pelo candidato Ricardo Kneipp foi:',percR:2:2,'% e o total de votos foi:',somaR);writeln;writeln('O percentual de fotos recebidos pelo candidato Obina foi:',percO:2:2,'% e o total de votos foi:',somaO);writeln;writeln('O percentual de fotos recebidos pelo candidato Geninho foi:',percG:2:2,'% e o total de votos foi:',somaG);writeln;Writeln('O presidente com mais votos foi o ',nomepres,', com ',maior,' votos.');End. Faca um algoritmo e a seguir passe-o para pascal que leia o nome e peso de 10 pessoas e a seguir calcule o maior peso, o mais leve, e a media de peso. Escreva o nome da pessoa com maior peso.Program Peso ;VARnome, nmaior, nmenor, f : integer;peso, pmaior, pmenor, pmedia : real;Beginfor f := 1 to 10 dobeginWriteln ('Escreva seu nome');readln (nome);Writeln ('Escreva seu peso');readln (peso);end;pmenor := peso;if (pmenor <= peso) thenwriteln ('o menor peso e,');writeln (pmenor);Writeln ('o nome e');writeln (nome);if (pmaior >= peso) thenwriteln ('o maior peso e');writeln (pmaior);writeln ('o nome e');writeln (nome);pmedia := (peso + peso) / 10;writeln ('a media e,');writeln (pmedia);End. 1.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 2.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 3.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