Trabalho de Pascal

{
1. Faça um algoritmo para ler três números inteiros e escrever a média dos números lidos
}
program Media_de_tres_numeros; var numero1,numero2,numero3,media:integer; begin writeln('digite 1 numero'); readln(numero1); writeln('digite outro numero'); readln(numero2); writeln('digite mais outro numero'); readln(numero3); writeln('a media dos 3 numeros sao:',(numero1+numero2+numero3)/3); readln(media); end.
{2. Faça um algoritmo para ler os coeficiente de uma equação do segundo grau e escrever o valor do seu Delta.} program equacao_do_grau; var a,b,c,delta:real; begin writeln('informe o valor de a,b e c:'); readln(a,b,c); delta:=(b*b-4*a*c); writeln('O delta e:', delta ); readln; end.
{3. Faça um algoritmo para ler os catetos de um triângulo retângulo e escrever a sua hipotenusa.} program triangulo_retangulo; var catetoA,catetoB,hipotenusa:real ; begin writeln('digite o cateto a'); readln(catetoA); writeln('digite o cateto b'); readln(catetoB); hipotenusa:=sqrt(catetoa*catetoa+catetob*catetob) ; writeln('A hipotenusa e:',hipotenusa); readln; end.
{4. Faça um algoritmo para ler uma temperatura em graus Celsius e transformá-la em farenheit. Utilize a seguinte fórmula: F=180(c+32)/100} program conversao_de_temperatura; var f,c:real; begin writeln('escreva a temperatura em graus celsius') ; readln(c); f:=((180*c)/100)+32; //a formula matematica da apostila esta errada. writeln('temperatura em farenheit e:',f); readln; end.
{5. Faça um algoritmo para ler o preço de compra e o percentual de lucro desejado por um vendedor e calcular o preço de venda.} program compra_percentual_venda; var compra,lucro,venda:real; begin writeln('informe o preco de compra'); readln(compra); writeln('informe a porcentagem de lucro'); readln(lucro); venda:=(((compra*lucro)/100)+compra); writeln('preco de venda e:',venda); readln; end.
{6. Faça um algoritmo para ler duas variáveis inteiras e trocar o seu conteúdo.}
program