var mark:real
var totalmark:real:=0
var count:int:=0

loop
put "What is mark?"
get mark
count:=count+1
totalmark:= totalmark+mark

exit when count=10

end loop

totalmark:= round (totalmark/10)

put totalmark," is the average mark"