Faça um algoritmo que leia 3 números inteiros e positivos (A,B e C) e Calcule a seguinte expressão: D=R+S/2, onde R=(A+B)² e S=(B+C)²

algoritmo "Cálculo de Expressão"

var
a,b,c,r,s,d:real
inicio
escreval("Cálculando Expressões de Números Inteiros")
escreval
escreval("Entre com o Valor de A: ")
leia(a)
escreval("Entre com o Valor de B: ")
leia(b)
escreval("Entre com o Valor de C: ")
leia(c)
r<-(a+b)^2
s<-(b+c)^2
d<-(r+s)/2
escreva("O valor de D é: ", d)

fimalgoritmo