carpetquote.sim

    Carpet class StandardCarpet(pricePerSqrMetre, roundUp); Real pricePerSqrMetre; Boolean roundUp;
    begin
        Real procedure price(area); Real area;
        begin
            if roundUp then
                    area := ceiling(area);
            
            price := pricePerSqrMetre * area;
        end;
    end;

    Room class RectangularRoom(width, length); Real width, length;
    begin
        Real procedure area;
        begin
            area := width * length;
        end;
    end;