20/08 Exercicio 2

Escreva um algoritmo que leia 3 números inteiros positivos (A, B, C) e calcule a seguinte expressão:

D = (R+S)/2, Onde:
R = (A+B)^2
S = (B+C)^2

algoritmo "Calculo da expressão"

var
a, b, c: inteiro
d: real

inicio
escreval("Calculo da expressão")
escreva("Informe o valor de A: ")
leia(a)
escreva("Informe o valor de B: ")
leia(b)
escreva("Informe o valor de C: ")
leia(c)
d <- ( ((a+b)^2) + ((b+c)^2) )/2
escreva("O valor de D é: ", d)

fimalgoritmo