IDENTIFICATION DIVISION.
PROGRAM-ID. C-SqrtIneq.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INP PIC X(33).
01 A   PIC 9(10).
01 B   PIC 9(10).
01 C   PIC 9(10).
01 RA  USAGE  COMP-2.
01 RB  USAGE  COMP-2.
01 RC  USAGE  COMP-2.
PROCEDURE DIVISION.
MAIN-001.
  ACCEPT INP.
  UNSTRING INP DELIMITED BY ' '
      INTO A B C.
*>
  COMPUTE RA = A ** 0.5.
  COMPUTE RB = B ** 0.5.
  COMPUTE RC = C ** 0.5.
  IF (RA + RB < RC)
    DISPLAY 'Yes'
  ELSE
    DISPLAY 'No'
  END-IF.
*>
  STOP RUN.
