Problem A

USING: io kernel math math.parser ;

readln string>number
dup
sq
3
*
-
-1
*
2
/
number>string print