Exercicio em pascal

1) Faça um algoritmo que solicite ao usuário dois números e exiba o resultado da soma dos números lidos.

Program exercicio_1 ; var num1:integer; num2:integer; total:integer; Begin write('Digite primeiro numero: '); readln(num1); write('Digite segundo numero: '); readln(num2); total:=num1+num2; writeln('seu total e ' , total); readkey End.

2) Faça um algoritmo que solicite ao usuário dois números e ao final mostre a soma, subtração, multiplicação e a divisão dos números lidos.

Program exercicio2 ; var num1:real; num2:real; soma:real; subtracao: real; multiplicacao:real; divisao:real; Begin write('Digite primeiro numero: '); readln(num1); write('Digite segundo numero: '); readln(num2); soma:=num1+num2; write ('A soma e: '); writeln (soma); subtracao:=num1-num2; write ('A subtracao e: '); writeln (subtracao); multiplicacao:=num1*num2; write ('A multiplicacao e: '); writeln (multiplicacao); divisao:=num1/num2; write ('A divisao e: '); writeln (divisao); readkey;
End.

3) Faça um algoritmo que solicite ao usuário um número qualquer e exiba o seu dobro.

Program exercicio3 ; var num1:real; num2:real; dobro:real; Begin write('Digite primeiro numero: '); readln(num1); dobro:=num1*2; write(dobro); readkey;
End.

4) Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecidos a distância total percorrida pelo automóvel e o total de combustível gasto.

Program exercicio4 ; var consumo:real; litros:real; distancia:real; Begin write('Digite a distancia: '); readln(distancia); write('Digite quantidade de litros: '); readln(litros); consumo:=distancia/litros; writeln('Consumo Medio : ', consumo, ' km/ l.'); readkey; End.

5) 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