start:
   local
       number r1;
       number r2;
       number r3;   
   end;
   [print ">"]; r1 = [ read ];
   [print ">"]; r2 = [ read ];
   [print ">"]; r3 = [ read ];
   [print "Average = "];
   [write -(r1 + r2 + r3) / 3];
   [print "\n"];
end;