# program 1: your finished lab4x should accept this, assuming Dave didn't screw up the example

program
open

def x integer ;
def foo real;

set x 125;
            read foo;
write 5 * (x + foo);

def sum real;
set sum 0.0;
repeat open
   def y real;
   read y;
   if (y >= x) open
      write y;
   close
   else open
      write x;
   close
   set sum (sum + x + y);
close until (x < foo);

close