var l0,x2,y2,b : int
var p : array 1..5 of int
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