Programa em pacal

Program Ex12;
Uses
Crt;
Var
raioBase,altura,volume : Real;
Begin
ClrScr;
Write(‘Digite o valor do raio da base:’);
ReadLn(raioBase);
Write(‘Digite o valor da altura do cone:’);
ReadLn(altura);
volume:=1/3*PI*Sqr(raioBase)*altura;
WriteLn(‘O volume desse cone e: ‘,volume:3:1);
ReadKey;
End.
=============código fonte=============

Exercício 11) a partir de um diâmetro de um círculo que será digitado pelo usuário, calcular e exibir sua área. área do círculo: PI.(diâmetro/2)²
==========código fonte==========
Program Ex11;
Uses
Crt;
Var
diametro,area : Real;
Begin
ClrScr;
Write(‘Digite o valor do diametro:’);
ReadLn(diametro);
area:=PI*Sqr(diametro/2);
WriteLn(‘A area do circulo e: ‘,area:3:1);
ReadKey;
End.
==========código fonte==========

Vamos fazer um cálculo de conversão de Celsius para Fahrenheit. Fórmula para resolver este problema: Tf=9.Tc/5+32
Em Pascalês:
===============código fonte===============
Program Ex10;
Uses
Crt;
Var
celsius,fahrenheit : Real;
Begin
ClrScr;
Write(‘Digite a temperatura em Celsius a ser convertida:’);
ReadLn(celsius);
fahrenheit:=(9*celsius/5)+32;
WriteLn(celsius:3:1,’ºC equivale ‘,fahrenheit:3:1,’F');
ReadKey;
End.
===============código fonte===============
Formulinha de física para relembrar: V=R . i
Traduzir para Pascal é simples para nós, vamos programar:
=============código fonte=============
Program Ex09;
Uses
Crt;
Var
tensao,resistencia,corrente : Real;
Begin
ClrScr;
Write(‘Digite o valor da resistencia:’);
ReadLn(resistencia);
Write(‘Digite o valor da corrente:’);
ReadLn(corrente);
tensao:=resistencia*corrente;
WriteLn(‘A tensao e: ‘,tensao:3:1);
ReadKey;
End.
=============código fonte=============
Neste exemplo vamos converter milhas marítimas em quilômetros. Milhas marítimas contém 1852 metros. Vamos para o código.
============código fonte============
Program Ex08;
Uses
Crt;
Var
converte,milhas : Real;
Begin
ClrScr;
Write(‘Digite a quantidade de