Programação Estruturada em Pascal

{Escrever um programa que simule um jogo da loto. O computador deve gerar 5 números aleatórios entre 50 possíveis (0 a 49), armazenando-os em um vetor (dez_sort) de 5 posições. Em seguida, o usuário deverá ler um vetor (aposta)com 10 posições (que representa uma aposta). O programa deve, então, verificar e imprimir uma mensagem mostrando quantos números o usuário acertou. De acordo com o exemplo abaixo o usuário acertou 4 dezenas. } Program Exer_99 ; var dez_sort :array[1..5]of integer;    //vetor para receber as dezenas geradas aleatoriamente aposta :array[1..10]of integer; //vetor para receber as dezenas apostadas a, acerto,posi,i,j:integer; Begin acerto:=0; for j:= 1 to 5 do      // for para gerar as cinco dezenas aleatórias begin a:=(random(50))-1;     //o -1 é para gera de 0 a 49 dez_sort[j]:=a;        //o vetor recebe na posição j de 1 ate 5, as 5 dezenas geradas writeln(dez_sort[j]);  // m...

 ALGORITMO QUE RECEBA 3 VALORES INTEIROS ( CONSIDERE QUE NÃO SERÃO INFORMADOS VALORES IGUAIS ) - ESCREVA A SOMA DOS DOIS NÚMEROS MAIORES. Program Soma_Maiores; var X, Y, Z, S1, S2, S3, Soma: Integer; Begin write ('Informe um número inteiro: '); read (X); write ('Informe outro número diferente do anterior: '); read (Y); write ('Informe outro número 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 números é ',Soma); End.