13. Escreva um programa para ler o raio de um circulo, calcular e escrever a sua area. (pR2)Entrada: raio de um circuloSaida: area do circuloCalculo: area= PI*(raio2)//Calcular a area de um circuloVariaveisarea, raio: realinicioescreva (Digite o raio do circulo: )leia (raio)se raio > 0 entaoarea <- pi*(raio^2)escreva (A area do circulo de raio: ,raio,e,area)fimsese raio <=0 entaoescreva (Raio nao pode ser nulo ou negativo.)fimsefimalgoritmo 11.Faca um algoritmo que receba o preco de custo de um produto e mostre o valor de venda. Sabe-se que o preco de custo recebera um acrescimo de acordo com um percentual informado pelo usuario.Entrada: 2 valoresSaida: 1 valorCalculo: Custo+Porcentagem de Custo//Lucro de Vendavariaveis custo,ganho,porcentagem:realinicio escreva ("Preco de Custo do Produto: ") leia (custo) escreva ("Porcentagem de Ganho sobre o Produto: ") leia (ganho) porcentagem<-ganho/100 escreva ("Valor de Venda: ",(porcentagem*custo)+custo)fimalgoritmo 16. Escreva um programa para calcular e imprimir o numero de lampadas necessarias para iluminar um determinado comodo de uma residencia. Dados de entrada: a potencia da lampada utilizada (em watts), as dimensoes (largura e comprimento, em metros) do comodo. Considere que a potencia necessaria e de 18 watts por metro quadrado.Entrada: potencia da lampada e as dimensoes do comodoSaida: numero de lampadasCalculo: area * 18 / potencia da lampada//Calcular numero de lampadas necessarias para iluminar um comodoVariaveispote_lamp, larg_com, comp_com, area_com, pote_nece, num_lamp: realInicioescreva (Potencia da lampada em WATTS: )leia (pote_lamp)escreva (Largura do comodo: )leia (larg_com)escreva (Comprimento do comodo: )leia (comp_com)area_com <- larg_com * comp_compote_nece <- area_com *18num_lamp <- (pote_nece / pote_lampescreva (Numero de lampadas necessarias para iluminar o comodo e ,int (num_lamp))fimalgoritmo 14. Escreva um programa para ler uma temperatura em graus fahrenheit, calcular e escrever o valor correspondente em graus Celsius. C=(F-32)/1.8Entrada: temperatura em FSaida: temperatura em CCalculo: C=(F-32)/1.8//Converter a temperatura de fahrenheit para CelsiusVariaveiscelsius, fahre: realInicioescreva (Digite a temperatura em fahrenheit: )leia (fahre)Celsius <- (fahre-32)/1.8escreva (A temperatura em Celsius e ,celsius)fimalgoritmo 15. Escreva um programa para ler uma temperatura em graus Celsius, calcular e escrever o valor correspondente em graus Fahrenheit. F=C*1.8+32Entrada: temperatura em celsiusSaida: temperatura em fahrenheitCalculo: F=C*1.8+32//Converter a temperatura de Celsius para FahrenheitVariaveiscelsius, fahre: realInicioescreva (Digite a temperatura em Celsius )leia (Celsius)fahre <- Celsius*1.8+32escreva (A temperatura em Fahrenheit e ,fahre)fimalgoritmo 17. Escreva um programa para ler as dimensoes de uma cozinha retangular (comprimento, largura e altura), calcular e escrever a quantidade de caixas de azulejos para se colocar em todas as suas PAREDES (considere que nao sera descontada a area ocupada por portas e janelas). Cada caixa de azulejos possui 1.5 m2.Entrada: dimensoes do comodoSaida: numero de ceramicasCalculo: (comp*alt)*2 +(larg*alt)*2//Calcular o numero de ceramicas necessarias para cozinhaVariaveiscomp, larg, alt, area, caixa: realInicioescreva (Digite o comprimento da cozinha: )leia (comp)escreva (Digite a largura da cozinha: )leia (larg)escreva (Digite a altura da cozinha: )leia (alt)area <- ((comp*alt)*2)+((larg*alt)*2)caixa <- 1.5escreva (Sao necessaria(s) ,area/caixa, caixa(s) de ceramica.)fimalgoritmo 19. Faca um algoritmo para calcular e imprimir a area de um retangulo. O usuario deve entrar com o tamanho dos lados. (A=a*b)Entrada: lados do trianguloSaida: area do trianguloCalculo: base * altura// Calcular a area de um trianguloVariaveisbase, altura: realInicioescreva (A base do triangulo: )leia (base)escreva (A altura do triangulo: