');readln(a);write('Informe o segundo numero: ');readln(b);write('Informe o terceiro numero: ');readln(c);if a<b then begin aux:=a; a:=b; b:=aux; end;if a<c then begin aux:=a; a:=c; c:=aux; end;if b<c then begin aux:=b; b:=c; c:=aux; end;if a>b+c then begin writeln('Nao forma triangulo.'); endelse begin if sqr(a) = sqr(b)+sqr(c) thenwriteln('Formam um triangulo retangulo.'); if sqr(a) > sqr(b)+sqr(c) thenwriteln('Formam um triangulo obtusangulo.'); if sqr(a) < sqr(b)+sqr(c) thenwriteln('Formam um triangulo acutangulo.'); if (a=b) and (b=c) then begin writeln('Formam um trianguloequilatero.'); end else begin if (a=b) or (a=c) or (b=c) thenwriteln('Formam um triangulo isosceles.'); end; end;readkey;end.12. Escrever um algoritmo/programa em Pascal que lea hora de inicio de um jogo e a hora do final do jogo (considerandoapenas horas inteiras) e calcula a duracao do jogo em horas, sabendo-se queo tempo maximo de duracao do jogo e de 24 horas e que o jogo pode iniciarem um dia e terminar no dia seguinte.program ex12;uses crt;varhi, hf, dj: integer;beginclrscr;write('Informe a hora inicial do jogo: ');readln(hi);write('Informe a hora final do jogo: ');readln(hf);if hf > hi then begin dj:=hf - hi; writeln('O jogo durou ',dj,' horas.'); endelse begin dj:=hf - hi + 24; writeln('O jogo durou ',dj,'horas.'); end;readkey;end.15. Aempresa Enxuga Gelo SA decidiu conceder um aumento de salarios a seusfuncionarios de acordo com a tabela abaixo:Salario Atual Indice De Aumento0 - 400,00 15%400,01 - 700,00 12%700,01 - 1.000,00 10%1.000,01 - 1.800,00 7%1.800,01 - 2.500,00 4%acima de 2.500,00 sem aumentoEscrever um algoritmo/programa em Pascal que le, para cada funcionario, o seunumero e o seu salario atual e escreve o numero do funcionario, seu salarioatua1, o percentual de seu aumento e o valor do salario corrigido.programex15;uses crt;varnf: integer;pa, sc, sa: real;beginclrscr;write('Informe o numero do funcionario: ');readln(nf);write('Informe o salario atual: ');readln(sa);if sa<=400 then pa:=15;if (sa>400) and (sa<=700) then pa:=12;if (sa>700) and (sa<=1000) then pa:=10;if (sa>1000) and (sa<=1800) then pa:=7;if (sa>1800) and (sa<=2500) then pa:=4;if (sa>2500) then pa:=0;sc:=sa + sa * pa/100;writeln('Funcionario: ', nf);writeln('Salario Atual: ',sa:0:2);writeln('Percentual de Aumento: ',pa:0:2,'%');writeln('Salario Corrigido: ',sc:0:2);readkey;end.end.17. Escrever umalgoritmo/programa em Pascal que le 5 valores para a, um de cada vez, e contaquantos destes valores sao negativos, escrevendo esta informacao.program ex17;uses crt;var i, a, cont: integer;beginclrscr;cont:=0;for i:= 1 to 5 do begin write('Informe um valor: '); readln(a); if a<0 then cont:=cont+1; end;writeln('Existem ',cont,' valores negativos.');readkey;end. 18. Escrever umalgoritmo/programa em Pascal que escreve os numeros pares entre 100 e 200.program ex18;uses crt;var i: integer;beginclrscr;writeln('Os numeros pares de 100 a 200 sao: ');for i:= 100 to 200 do begin if i mod 2 = 0 then begin write(i:8); end; end;readkey;end.19. Escrever umalgoritmo/programa em Pascal que escreve a soma dos numeros entre 0 e 100.program ex19;uses crt;var i, soma: integer;beginclrscr;soma:=0;for i:= 0 to 100 do begin soma:= soma + i; end;writeln('A soma dos numeros de 0 a 100 e: ', soma);readkey;end.20. Escrever umalgoritmo/programa em Pascal que escreve a soma dos numeros pares entre 0 e100.program ex20;uses crt;var i, soma: integer;beginclrscr;soma:=0;for i:= 0 to 100 do begin if i mod 2 = 0 then begin soma:= soma + i; end; end;writeln('A soma dos numeros pares de 0 a 100 e: ', soma);readkey;end.21. Escrever umalgoritmo/programa em Pascal que escreve a soma dos numeros multiplos de 7entre 100 e 200.program ex21;uses crt;var