Introdução ao processamento de dados

1 - Programa_exe01; Var raio, area : real;
Inicio
raio := 0; area := 0; Escreva ('Informe o raio do circulo: '); Leia (raio); area :=( 3.14 * raio * raio); Pi = 3.14 Escreva ('A area do circulo e: ', area);
Fim.

2 – Programa_exe02; Var tempf, tempc : real; Inicio tempf := 0; tempc := 0; Escreva ('Informe a temperatura em graus Fahrenheit: '); leia (tempf); tempc := ((tempf - 32) * 5) / 9; Escreva ('A temperatura em graus Celsius e: ', tempc); Fim.

3 - Programa_exe03; Var potlamp, largcom, compcom, areacom, pottotal : real; numlamp: inteiro;
Inicio
Escreva ('Qual a potencia da lampada (em watts) '); leia (potlamp); Escreva ('Qual a largura do comodo (em metros) '); Leia (largcom); Escreva ('Qual o comprimento do comodo (em metros) '); Leia (compcom); areacom := largcom * compcom; pottotal := areacom * 18; numlamp := r(pottotal / potlamp); Escreva (' Numero de lampadas para iluminar o comodo e: ' numlamp );
Fim.

4 - Programa_exe04; Var odomi, odomf, litros, valort, media, lucro, gasl : real;
Inicio
odomi := 0; odomf := 0; litros := 0; valort := 0; media := 0; lucro := 0; gasl := 1.90; Escreva ('Marcacao inicial do odometro (Km): '); Leia (odomi); Escreva ('Marcacao final do odometro (Km): '); Leia (odomf); Escreva ('Quantidade de combustivel gasto (litros): '); Leia (litros); Escreva ('Valor total recebido (R$): '); leia (valort); media := (odomf - odomi) / litros; lucro := valort - (litros * gasl); Escreva (' Media