Program Pzim ;Varx,num,teste:integer;Begin Writeln('Digite um numero:'); //solicita que seja digitado um numero Read(Num); //le o numero Write ('Sao divisores de ',num,', :'); //exibe a mensagem uma vez For x:=1 to num do //faz de 1 ate o numero ( processo de divisao) Begin //teste verifica se e divisor. teste:=num mod X; //um numero e divisor quando o resto e igual a zero If teste=0 then Write (X,', '); // se for divisor, mostra o numero, todos na mesma linha End;End. ALGORITMO QUE RECEBA 3 VALORES INTEIROS( CONSIDERE QUE NAO SERAO INFORMADOS VALORES IGUAIS ) - ESCREVA A SOMA DOS DOIS NUMEROS MAIORES.Program Soma_Maiores;var X, Y, Z, S1, S2, S3, Soma: Integer;Begin write ('Informe um numero inteiro: '); read (X); write ('Informe outro numero diferente do anterior: '); read (Y); write ('Informe outro numero diferente dos anteriores: '); read (Z);S1:=X+Y;S2:=Y+Z;S3:=X+Z; IF ((S1>S2) AND (S1>S3)) Then Soma:= S1; IF ((S2> S1) AND (S2>S3)) Then Soma:= S2; IF ((S3>S1) AND (S3>S2)) THEN Soma:= S3; write ('A soma dos numeros e ',Soma);End. O usuario informa 2 vetores (a e b)Montar o vetor c "oscilando" entre o vetor (a e b).conforme abaixoVETOR a1, 2, 3, 4, 5, 6, 7, 8, 9, 10VETOR b11, 12, 13, 14, 15, 16, 17, 18, 19, 20tendo como resposta oVETOR c1, 11, 2, 12, 3, 13, 4, 14...------------------------------------------------Program Ex7 ;Vara,b:array [1..10] of integer;c:array [1..20] of integer;i,j:integer;Begin for i:=1 to 10do begin writeln('informe o vetor1 V[',i,']:'); readln(a[i]); end; for i:=1 to 10 do begin writeln('informe o vetor2 V[',i,']:'); readln(b[i]); end;j:=1; for i:=1 to 10 do begin c[j]:=a[i]; j:=j+2; end;j:=2; for i:=1 to 10 do begin c[j]:=b[i]; j:=j+2; end; for i:=1 to 20 do begin write(c[i],' '); end;End. {Escrever um programa que simule um jogo da loto. O computador deve gerar 5 numeros aleatoriosentre 50 possiveis (0 a 49), armazenando-os em um vetor (dez_sort) de 5 posicoes. Em seguida,o usuario devera ler um vetor (aposta)com 10 posicoes (que representa uma aposta).O programa deve, entao, verificar e imprimir uma mensagem mostrando quantos numeros o usuario acertou.De acordo com o exemplo abaixo o usuario acertou 4 dezenas.}Program Exer_99 ;vardez_sort :array[1..5]of integer; //vetor para receber as dezenas geradas aleatoriamenteaposta :array[1..10]of integer; //vetor para receber as dezenas apostadasa, acerto,posi,i,j:integer;Beginacerto:=0; for j:= 1 to 5 do // for para gerar as cinco dezenas aleatorias begin a:=(random(50))-1; //o -1 e para gera de 0 a 49 dez_sort[j]:=a; //o vetor recebe na posicao j de 1 ate 5, as 5 dezenas geradas writeln(dez_sort[j]); // motra das dezenas geradas, para comparacao, end; // nao precisa ter no programa for i:= 1 to 10 do begin // for para receber no vetor as dezenas apostadas writeln('Digite 1 numero de 0 a 49'); readln (aposta[i]); // o indice i vai de 1 ate 10 end; for j:= 1 to 10 do //esse for e para receber as dezenas apostadas begin for i:= 1 to 5 do //esse e para comparar as sorteadas com a apostada, testa as 5 sorteadas com cada apostada begin if aposta[j]=dez_sort[i] then //se for iguais ... acerto:=acerto+1; // acrescenta mais 1 end; end; writeln('Os acertos foram: ', acerto ); //no