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

Algoritmo "Segundo"
Var
  a,b,c,r,s,d: real
Inicio
  Leia(a,b,c)
  r <- (a+b)^2
  s <- (b+c)^2
  d <- (r+s)/2
  Escreva(d:5:1)
Fimalgoritmo