Exercicios com ARRAYS - (Pascal)Program Media_Notas;{este programa recebe tres notas, soma-as, tira a mediae as devolve pra tela}varnum: array [1..3] of integer;soma,media:real;i:integer;Beginwriteln ('digite as tres notas');soma:=0;for i:=1 to 3 do {Aqui entram as notas na variavel)read (num[i]);for i:=1 to 3 do {Aqui soma-se as notas)soma:=(num[i]+soma);media:=(soma/3);for i:=1 to 3 do {Aqui saem as notas na variavel)writeln ('As notas de entrada sao: ',num [i]);writeln;writeln('A soma da notas e: ',soma:2:2);writeln;writeln('A media das notas e: ',media:2:2);End.xxxxxxxxx---xxxxx---xxxxxx-xxxxx-xxxx-xxx-x-x-xx--x{Desenvolver programa que leia 4 nomes para uma matriz armazene e apos armazenar todos apresente cada um deles.}Program lista_nomes;varnome: array [1..4] of string;I: integer;beginwriteln ('listagem de alunos');writeln;for i:= 1 to 4 dobeginwrite ('Digite o Nome:');readln (nome [i]); {Aqui entra os nomes dos alunos}end;for i:= 1 to 4 dowriteln ('Nomes: ', Nome [i]); {Aqui sai os nomes dos alunos}end. ==> Explicacao Pascal no youtube: http://www.youtube.com/watch?v=c1JnB14lt30&feature=mfu_in_order&list=ULEXERCICIOS:Todas as entradas de dados devem ter dialogo com o usuario:Desenvolva os seguintes programas e salve no desktop com o nome da dupla no formato:EX1-Nome1_Nome2EX2-Nome1_Nome2E assim sucessivamente.EX1) Desenvolva um programa que escreva ola mundo na tela ( a tela deve ficar azul)EX2) Faca um programa que peca o nome, sexo, idade, e imprima os dados. EX3) Calcular e imprimir o a area de um circulo, formula area circulo= Pi * R2 (PI=3,14). A medida deve ser em metros. EX4) Perguntar o nome do aluno. Calcular a media aritmetica de tres notas e imprimir o resultado final. A nota de aprovacao deve ser maior ou igual a 7. Informar o nome e se o aluno foi aprovado. EX5) Perguntar o nome do aluno. Calcular a media aritmetica de quantas notas forem necessarias (utilize comando FOR). A nota de aprovacao deve ser maior ou igual a 7. Informar o nome e se o aluno foi aprovado EX6) Utilizando CASE numa maquina de refrigerantes de 5 opcoes de escolha. Informe ao usuario se ele digitou opcao errada.EX7) Faca um programa que utilize os comandos:REPEAT;WHILE.EX8) Faca um programa que utilize a estrutura vetor arrays:EX9) Faca um programa que utilize a PROCEDURE para calcular raiz quadrada:EX10) Faca um programa que utilize UM CRONOMETRO de fim de ano e deseje FELIZ ANO NOVO. Segue o programa (base) Figuras Planas em Pascal, que foi apresentado na comemoracao do dia da Informatica:Program Areas;const PI = 3.14;varArea_circulo, Comprimento_circulo, Raio : real;largura, comprimento, area : real;Area_triangulo, Base, LadoA, LadoB: real;x:integer;areax, aresta : real;Begin textbackground (blue);clrscr;textcolor (white);writeln;writeln('Programa destinado ao calculo da Area de Figuras Planas ');writeln;writeln(' Desenvolvido em pelos alunos do Primeiro ano Informatica Integrado '); writeln;writeln('Apos cada operacao que voce realizar pressione Enter '); writeln;writeln;writeln;writeln('Pressione ENTER para comecar ');writeln;READKEY;clrscr;writeln;writeln('Escolha uma operacao abaixo:');writeln;writeln;writeln('Digite 1 : para Area de um Circulo;');writeln;writeln('Digite 2 : para Area de um Retangulo;');writeln;writeln('Digite 3 : para Area de um Triangulo;');writeln;writeln('Digite 4 : para Area de um Quadrado.');writeln;readln(x);clrscr;case x of1 : Begin writeln;writeln( ' Digite o Raio (em metros) : ' );readln(Raio);writeln;Area_circulo := PI * Raio * Raio;Comprimento_circulo := 2 * PI * Raio;clrscr;writeln;writeln( ' A Area do circulo e de : ', Area_circulo :2:2 ,' Metros quadrados ' );writeln;writeln;writeln(' Comprimento da Circunferencia = ', Comprimento_circulo :2:2,' Metros' );end;2 : Beginwriteln;Writeln (' Digite a Largura (em