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

D=R+S/2
R=(A+B)²
S=(B+C)²


algoritmo "Calcule a expressão"

var
  R,S,D: real
  a,b,c: inteiro

inicio

      escreval("Entre com o primeiro número ")
      leia(a)
      escreval("Entre com o segundo número ")
      leia(b)
      escreval("Entre com o terceiro número ")
      leia(c)
      R<-(a+b)^2
      S<-(b+c)^2
      D<-(R+S)/2
      escreva("O resultado do cálculo é: ",D)

fimalgoritmo