Alg1-Caderno- 2. 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 equaçã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