var l0,x2,y2,b : int
var p : array 1..5 of int

% initialize variables
x2 := 0 l0 := 5 y2 := 0

for t : 1 .. l0 get p(t) end for
b := 5
for t : 1 .. b
	x2 := p(t)
	y2 := y2 + x2
end for
y2 := y2 div b
put "result is ", y2