Calcular expressao

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 de expressao Ex.2"
var
   a,b,c,r,s:real
inicio
      escreval("Informe o valor de 'a':")
      leia(a)
      
      escreval("Informe o valor de 'b':")
      leia(b)
      
      escreval("Informe o valor de 'c':")
      leia(c)
      
      r<- (a+b)^2
      s<- (b+c)^2
      escreva("O resultado é:",(r+s)/2)
fimalgoritmo