Program aaa
    IMPLICIT NONE
    REAL X,Y
    READ *,X
    Y=X**3+SIN(X)**2+LOG(X**4+1)
    write (*,100), Y, y**2
    100 format(2f12.3)
end