Pascal

1. Faça um algoritmo que receba dois números e exiba o resultado da sua soma.
Program ********; var n1, n2, total: real;
Begin
writeln ('Informe o primeiro número: '); read (n1); writeln ('Informe o segundo número: '); read (n2); total:= n1 + n2; writeln ('A soma é: ', total); end. 2. Faça um algoritmo que receba dois números e ao final mostre a soma, subtração, multiplicação e a divisão dos números lidos.
Program ********; var n1, n2, soma, subtracao, divisao, multiplicacao: real;
Begin
writeln ('Informe o primeiro número: '); read (n1); writeln ('Informe o segundo número: '); read (n2); soma:= n1 + n2; subtracao:= n1 - n2; divisao:= n1 / n2; multiplicacao:= n1 * n2; writeln ('A soma é: ', soma); writeln ('A subtração é: ', subtracao); writeln ('A multiplicação é: ', multiplicacao); writeln ('A divisão é: ', divisao); end. 3. Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecida a distância total percorrida pelo automóvel e o total de combustível gasto.
Program ********; var tot_comb, tot_dist, cons: real;
Begin
writeln (‘Distância percorrida: '); read (tot_dist); writeln ('Combustível gasto: '); read (tot_comb); cons:= tot_dist / tot_comb; writeln ('O consumo médio é de: ', cons); end. 4. Escrever um algoritmo que leia o nome de um vendedor, o seu salário fixo e o total de vendas efetuadas por ele no mês (em dinheiro). Sabendo que este vendedor ganha 15% de comissão sobre suas vendas efetuadas, informar o seu nome, o salário fixo e salário no final do mês.
Program ********; var nome: string; sal_fixo, sal_final, tot_vendas: real;
Begin
writeln ('Nome do vendedor: '); read (nome); writeln ('Salário fixo desse vendedor: '); read (sal_fixo); writeln ('Total de vendas (em R$) desse vendedor: '); read (tot_vendas); sal_final:= (tot_vendas * 0.15)+sal_fixo; writeln ('Vendedor: ', nome); writeln ('Salário fixo: R$ ', sal_fixo); writeln ('Salário com