/***************************************************/ 
/* This program computes the largest of three      */
/* FLOAT BINARY numbers x, y, and z                */   
/***************************************************/
test:
    procedure options(main);
    declare 
       (a,b,c) float binary;

    put list ('Type Three Numbers: ');
    get list (a,b,c);
    put list ('The Largest Value is',max3(a,b,c));

    /* this procedure computes the largest of x, y, and z */
    max3: 
        procedure(x,y,z) returns(float binary);
        declare 
           (x,y,z,max) float binary;

        if x > y then
           if x > z then
              max = x;
           else
              max = z;
        else
           if y > z then
              max = y;
           else
              max = z;
        return(max);
    end max3;

end test;

