Logica de Programacao Exercicio de FixacaoExercicios sobre a Sintaxe da Linguagem de Programacao PASCALAlunos saudacoes, nessa reta final da disciplina vamos nos concentrar nos erros mais comuns, meu desejo e que todos tivessem o mesmo aproveitamento, mas como nao e possivel vamos tentar homogeneizar as discrepancias.Concentraremo-nos apenas nos erros mais frequentes e comuns com o intuito de se aperfeicoar no pascal e na logica quem ja sabe se prevenira de erros crassos e os que ainda nao obtiveram desejavel grau de aproveitamento terao a oportunidade de se projetarem ao patamar necessario para a aprovacao!tenho visto com frequencia erros de ponto e virgula.Atencao a isso nao tem ";" apos o (begin) nem ao (var) pois estas sao inicios de secoes, identicamente a linha inicial das estruturas condicionais e de repeticao, nao ha ";" apos o (if <condicao> then) nem apos o (for i=1 to ? do) nem a nenhuma outra estrutura similar pois estas necessitam dos comandos respectivos subsequentes ok?Cada estrutura precisa identificar o comando que ela vai executar o ";" encerra cada comando e o "end;" encerra a estrutura ok?Exceto o "end"anterior ao "else" pois este faz parte do comando "if" anterior (if-then-else /se -entao-senao) beleza pura pessoal!Bons estudos!Indique os erros em cada um dos programas Pascal abaixo. A partir dos erros encontrados, elabore umresumo sobre as regras de uso correto dos componentes da linguagem Pascal.1. Declaracao de Variaveis/Constantes, Comando de Atribuicao e ExpressoesProgram Exemplo1;Constvalor := 90.5 ;Varunitario, total, qtde : integer;nome: char;teste: boolean;valor : real;Beginqtde:= 1.5;total:= 3;unitario := total / qtde ;quadrado := total ** 2;nome:= teste;True := false;letra1:= A ;letra2:= B ;teste := letra1 > letra2Valor := Valor * letra1;End.2. Funcoes do Pascal / Comandos de Entrada e Saida de Dados (com uso de formatacao)Program Exemplo2;Varresp, outro: char;num1, num2: integer;resultado : real;Beginwrite(Entre os numeros para o calculo, num1, num2);resultado := succ num1 + sqrt num2;write ( resp);write ( Deseja ver os resultados ? (S / N) ) ;readln (resp);resp := S;write (O resultado da expressao foi resultado:6:3);writeln(Deseja outro calculo ?)upcase(outro):= outro;End.3. Estrutura de Selecao (IF .....THEN ......ELSE)Program Exemplo3;Varsexo, resp_carta : char;idade, num_reserv, mulheres, num_carta, d_val, m_val, a_val : integer;Beginread (sexo, idade);If sexo='M' and idade >= '18' thenwrite (Digite o numero da carteira de reservista: );read (num_reserv);elsemulheres:= mulheres + 1;write (Possui carteira de motorista ?);read (resp_carta);If resp_carta = s or S thenwrite (Digite o numero da carteira e a data de validade:)read (num_carta, d_val, m_val, a_val);If a_val = 1996 thenwrite (Atencao ! voce deve renovar sua carteira ! )elsewrite (Voce deve tirar sua carteira para poder dirigir !);End.4. Estrutura de Repeticao (WHILE ..... DO)Program Exemplo4;Varpeso_ideal, altura : real;sexo : char;Beginwrite (Entre sua altura (-1 para encerrar):);read (altura);While altura <> -1 dobegin write (Sexo:);read (sexo);While (sexo <> F) or (sexo <> f) or (sexo <> M) or (sexo <> m) do write (erro : Digite M ou F para o sexo !)read (sexo);If sexo = M or sexo = m thenpeso_ideal := (72.7 * altura) - 58;elsepeso_ideal := (62.1 * altura) - 44.7;write (Seu peso ideal eh , peso_ideal );end;End. Alunos saudacoes, Pensem em se empenhar, no pain no gain,o diferencial que