vendido: ');readln(vpcv);st:= sf + tv * 5 / 100 + ncv * vpcv;writeln('O vendedor ', nv, ' recebe um salario total de R$ ', st:0:2);readkey;end. 8. Escrever um programa em Pascal que le 3valores a, b, c, e escreva os 3 valores em ordem crescente. program ex8;uses crt; var a, b, c, aux: integer; beginclrscr;write('Informe o primeiro numero: ');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;writeln('Valores em ordem crescente: ', a:6, b:6, c:6);readkey;end. 9.Escrever um algoritmo/programa em Pascal que le um conjunto de 4 valores i, a, b, c, onde i e um valor inteiro e positivo e a, b, c, sao quaisquervalores reais e os escreva. A seguir:Se i = 1 escrever os 3 valores a, b, c em ordem crescente. Se i = 2 escrever os 3 valores a, b, c em ordem decrescente.Se i = 3 escrever os 3 valores de forma que o maior valor entre a, b, c ficaentre os outros 2.program ex9;uses crt;var i, a, b, c, aux: integer;beginclrscr;write('Informe um valor [1, 2, 3]: ');readln(i);write('Informe o primeiro numero: ');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 i=1 then begin writeln('Valores em ordem crescente:', a:6, b:6, c:6); end;if i=2 then begin writeln('Valores em ordem decrescente:', c:6, b:6, a:6); end;if i=3 then begin writeln('Maior Valor no meio: ', a:6,c:6, b:6); end;readkey;end.10.Escrever um algoritmo/programa em Pascal que le o numero de um vendedor de uma empresa,seu salario fixo e o total de vendas por ele efetuadas.Cada vendedor recebe um salario fixo, mais uma comissao proporcional as vendaspor ele efetuadas.A comissao e de 3% sobre o total de vendas ate $ 1.000,00 e 5% sobre oque ultrapassa este valor.Escrever o numero do vendedor, o total de suas vendas, seu salario fixo eseu salario total.program ex10;uses crt;varnv: integer;sf, tv st: real;beginclrscr;write('Informe o numero do vendedor: ');readln(nv);write('Informe o total de vendas: ');readln(tv);write('Informe o salario fixo: ');readln(sf);if tv<=1000 then begin st:= sf + tv * 3 / 100; endelse begin st:= sf + (tv-1000) * 5 / 100 + 30; end;writeln('O vendedor ', nv, ' recebe um salario total de R$ ', st:0:2);readkey;end.11.Escrever um algoritmo/programa em Pascal que le 3 comprimentos de lados a, b, ce os ordena em ordem decrescente, de modo que o a represente o maior dos 3lados lidos.Determine, a seguir, o tipo de triangulo que estes 3 lados formam, com base nosseguintes casos escrevendo sempre os valores lidos e uma mensagem adequada: Se a > b + c nao formam triangulo algum. Se a2 = b2 + c2 formam um triangulo retangulo. Se a2 > b2 + c2 formam um triangulo obtusangulo. Se a2 < b2 + c2 formam um triangulo acutangulo. Se forem todos iguais formam um triangulo equilatero. Se a = b ou b = c ou a = c entao formam um trianguloisoscelesprogramex11;uses crt;var a, b, c, aux: integer;beginclrscr;write('Informe o primeiro numero: