real area
real y_ant
real y

area <- 0
leia y_ant
leia y

enquanto (y >= 0):
    area <- area + (y + y_ant) / 2
    y_ant <- y
    leia y

mostra area