var x, y : int

proc calculate
    put "Enter first number: " ..
    get x
    put "Enter second number: " ..
    get y
    put "Sum is: " ..
    put x + y
end calculate

calculate