var a, bb, c, d, e, f, sum
body
    a := 10
    read bb
    read c
    read d
    read e
    sum := bb + c
    sum := sum + d
    sum := sum + e
    if sum < a goto LT10
GTEQ10:
    f := 1
    goto FINISHED
LT10:
    f := 0
    goto FINISHED
FINISHED:    
    write f
end