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

algoritmo "Calculo de uma expressão"
var
a,b,c: inteiro
r,s,d:real
  inicio
  escreva("digite A: ")
  leia(a)
  escreva("digite B: ")
  leia(b)
  escreva("digite C: ")
  leia(c)
  R <- ((a+b)^2)
  s <- ((b+c)^2)
  d <- ((r+s)/2)
  escreva("Calculo: ", d)
  fimalgoritmo