CÁLCULO DA EXPRESSÃO

Algoritmo:
Escreva um algoritmo que leia 3 três números inteiros e positivos (A,B e C) e calcule a seguinte expressão: d=R+S/2 onde R= (a+b)² e R=(b+c)².

1.   algoritmo "Cálculo de expressão"
2.   var
3.       a,b,c,r,s,d:real
4.     escreval("Cálculo da expressão: d=R+S/2, onde R=(a+b)² e S=(b+c)².")
5.     escreva("Digite o valor de a = ")
6.      leia (a)
7.     escreva("Digite o valor de b = ")
8.      leia (b)
9.     escreva("Digite o valor de c = ")
10.     leia (c)
11.    r <- (a+b)^2
12.    s <- (b+c)^2
13.    d <- (r+s)/2
14.    escreval("O valor de d é igual a ",d)
15.    escreva("*** F I M ***")
16.  fimalgoritmo